From 62a29655934ccd79ec72403b31b8a68b5aa51634 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lukas=20B=C3=BCtikofer?= Date: Fri, 23 May 2025 16:54:02 +0200 Subject: [PATCH] Delete .Rhistory --- .Rhistory | 264 ------------------------------------------------------ 1 file changed, 264 deletions(-) delete mode 100644 .Rhistory diff --git a/.Rhistory b/.Rhistory deleted file mode 100644 index 611cabf..0000000 --- a/.Rhistory +++ /dev/null @@ -1,264 +0,0 @@ -usethis::create_package() -usethis::create_package(.) -usethis::create_package(".") -devtools::load_all() -?fplot -data(forplotdata) -dev.off() -dev.new(width=6,height=4,pointsize=14) -lwidths<-c(0.05,0.5,0.2,0.8,0.2,0.8,1.2,1.2,0.5,0.05) -lheights<-c(0.12,1,0.04) -header3<-list(list(y=0.7, -text=c("Group1","Group2","Mean difference (95% CI)","P-value"), -x=c(0.15,0.35,0.7,0.98)), -list(y=0.3,text=c("N","mean (sd)","N","mean (sd)"), -x=c(0.1,0.2,0.3,0.4))) -xtitle<-list(x=0.85,y=0.8,textl="Group 1 better ",textr=" Group 2 better") -fplot(dat=forplotdata,header=header3,lwidths=lwidths,lheights=lheights, -ref=list(x=0), -cap_length=0.03, -shift_xaxis=0.5,xlab_line=-1.4, -xtitle=xtitle,xlim=c(-1,0.5), -headline=2,bottomline=1) -use_mit_license() -usethis::use_mit_license(copyright_holder = NULL) -install.packages('forplot', repos = 'https://ctu-bern.r-universe.dev') -remotes::install_github("CTU-Bern/accrualPlot") -library(forplot) -remotes::install_github("CTU-Bern/forplot") -# load package -library(forplot) -devtools::load_all() -devtools::check() -devtools::check() -devtools::load_all() -# demonstration data -data(forplotdata) -forplotdata -fplot(dat=forplotdata[,c("vlabel","beta","beta_lci","beta_uci")]) -devtools::check() -remotes::install_github("CTU-Bern/forplot") -devtools::load_all() -ps<-list(pch=16,cex=rnorm(10,2,0.2),col=1) -header<-list(list(y=0.7, -text=c("Group1","Group2","Mean difference (95% CI)","P-value"), -x=c(0.10,0.32,0.7,0.98)), -list(y=0.3,text=c("N","mean (sd)","N","mean (sd)"), -x=c(0.07,0.18,0.28,0.38))) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -xtitle=xtitle,xlim=c(-1,0.5),shift_xaxis=0.3,xlab_line=-0.8, -headline=2,bottomline=1) -lwidths<-c(0.05,0.5,0.2,0.8,0.2,0.8,1.2,1.2,0.5,0.05) -lheights<-c(0.14,1,0.08) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -xtitle=xtitle,xlim=c(-1,0.5),shift_xaxis=0.3,xlab_line=-0.8, -headline=2,bottomline=1) -xtitle<-list(x=0.86,y=0.6,textl="Group 1 better ",textr=" Group 2 better") -ps<-list(pch=16,cex=rnorm(10,2,0.2),col=1) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -xtitle=xtitle,xlim=c(-1,0.5),shift_xaxis=0.3,xlab_line=-0.8, -headline=2,bottomline=1) -xlab_text<-c(0.5,0.8,1.0,1.2) -xlab<-log(xlab_text) -xlim<-log(c(min(xlab_text),max(xlab_text))) -fplot(...,xlim=xlim, xlab=xlab, xlab_text=xlab_text,...) -header<-list(list(y=0.7, -text=c("Group1","Group2","Risk ratio (95% CI)","P-value"), -x=c(0.10,0.32,0.7,0.98)), -list(y=0.3,text=c("N","mean (sd)","N","mean (sd)"), -x=c(0.07,0.18,0.28,0.38))) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -xtitle=xtitle,shift_xaxis=0.3,xlab_line=-0.8, -xlim=xlim,xlab=xlab, xlab_text=xlab_text, -headline=2,bottomline=1) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -lscale="yes", -xtitle=xtitle,shift_xaxis=0.3,xlab_line=-0.8, -xlim=xlim,xlab=xlab, xlab_text=xlab_text, -headline=2,bottomline=1) -devtools::load_all() -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -lscale=TRUE, -xtitle=xtitle,shift_xaxis=0.3,xlab_line=-0.8, -xlim=xlim,xlab=xlab, xlab_text=xlab_text, -headline=2,bottomline=1) -xlab_text<-c(0.2,0.5,0.8,1.0,1.2) -xlab<-log(xlab_text) -xlim<-log(c(min(xlab_text),max(xlab_text))) -header<-list(list(y=0.7, -text=c("Group1","Group2","Risk ratio (95% CI)","P-value"), -x=c(0.10,0.32,0.7,0.98)), -list(y=0.3,text=c("N","mean (sd)","N","mean (sd)"), -x=c(0.07,0.18,0.28,0.38))) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -lscale=TRUE, -xtitle=xtitle,shift_xaxis=0.3,xlab_line=-0.8, -xlim=xlim,xlab=xlab, xlab_text=xlab_text, -headline=2,bottomline=1) -xlab_text<-c(0.3,0.5,0.8,1.0,1.2) -xlab<-log(xlab_text) -xlim<-log(c(min(xlab_text),max(xlab_text))) -header<-list(list(y=0.7, -text=c("Group1","Group2","Risk ratio (95% CI)","P-value"), -x=c(0.10,0.32,0.7,0.98)), -list(y=0.3,text=c("N","mean (sd)","N","mean (sd)"), -x=c(0.07,0.18,0.28,0.38))) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -lscale=TRUE, -xtitle=xtitle,shift_xaxis=0.3,xlab_line=-0.8, -xlim=xlim,xlab=xlab, xlab_text=xlab_text, -headline=2,bottomline=1) -xlab_text<-c(0.5,0.8,1.0,1.2) -xlab<-log(xlab_text) -xlim<-log(c(min(xlab_text),max(xlab_text))) -header<-list(list(y=0.7, -text=c("Group1","Group2","Risk ratio (95% CI)","P-value"), -x=c(0.10,0.32,0.7,0.98)), -list(y=0.3,text=c("N","mean (sd)","N","mean (sd)"), -x=c(0.07,0.18,0.28,0.38))) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -lscale=TRUE, -xtitle=xtitle,shift_xaxis=0.3,xlab_line=-0.8, -xlim=xlim,xlab=xlab, xlab_text=xlab_text, -headline=2,bottomline=1) -xlab_text<-c(0.3,0.5,0.8,1.0,1.2) -xlab<-log(xlab_text) -xlim<-log(c(min(xlab_text),max(xlab_text))) -header<-list(list(y=0.7, -text=c("Group1","Group2","Risk ratio (95% CI)","P-value"), -x=c(0.10,0.32,0.7,0.98)), -list(y=0.3,text=c("N","mean (sd)","N","mean (sd)"), -x=c(0.07,0.18,0.28,0.38))) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -lscale=TRUE, -xtitle=xtitle,shift_xaxis=0.3,xlab_line=-0.8, -xlim=xlim,xlab=xlab, xlab_text=xlab_text, -headline=2,bottomline=1) -1/0.3 -xlab_text<-c(0.3,0.5,0.8,1.0,1.5) -xlab<-log(xlab_text) -xlim<-log(c(min(xlab_text),max(xlab_text))) -header<-list(list(y=0.7, -text=c("Group1","Group2","Risk ratio (95% CI)","P-value"), -x=c(0.10,0.32,0.7,0.98)), -list(y=0.3,text=c("N","mean (sd)","N","mean (sd)"), -x=c(0.07,0.18,0.28,0.38))) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -lscale=TRUE, -xtitle=xtitle,shift_xaxis=0.3,xlab_line=-0.8, -xlim=xlim,xlab=xlab, xlab_text=xlab_text, -headline=2,bottomline=1) -xlab_text<-c(0.3,0.5,1.0,1.5) -xlab<-log(xlab_text) -xlim<-log(c(min(xlab_text),max(xlab_text))) -header<-list(list(y=0.7, -text=c("Group1","Group2","Risk ratio (95% CI)","P-value"), -x=c(0.10,0.32,0.7,0.98)), -list(y=0.3,text=c("N","mean (sd)","N","mean (sd)"), -x=c(0.07,0.18,0.28,0.38))) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -lscale=TRUE, -xtitle=xtitle,shift_xaxis=0.3,xlab_line=-0.8, -xlim=xlim,xlab=xlab, xlab_text=xlab_text, -headline=2,bottomline=1) -xlab_text<-c(0.3,0.5,0.8,1.0,1.5) -xlab<-log(xlab_text) -xlim<-log(c(min(xlab_text),max(xlab_text))) -header<-list(list(y=0.7, -text=c("Group1","Group2","Risk ratio (95% CI)","P-value"), -x=c(0.10,0.32,0.7,0.98)), -list(y=0.3,text=c("N","mean (sd)","N","mean (sd)"), -x=c(0.07,0.18,0.28,0.38))) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -lscale=TRUE, -xtitle=xtitle,shift_xaxis=0.3,xlab_line=-0.8, -xlim=xlim,xlab=xlab, xlab_text=xlab_text, -headline=2,bottomline=1) -xlab_text<-c(0.25,0.5,1.0,2.0) -xlab<-log(xlab_text) -xlim<-log(c(min(xlab_text),max(xlab_text))) -header<-list(list(y=0.7, -text=c("Group1","Group2","Risk ratio (95% CI)","P-value"), -x=c(0.10,0.32,0.7,0.98)), -list(y=0.3,text=c("N","mean (sd)","N","mean (sd)"), -x=c(0.07,0.18,0.28,0.38))) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -lscale=TRUE, -xtitle=xtitle,shift_xaxis=0.3,xlab_line=-0.8, -xlim=xlim,xlab=xlab, xlab_text=xlab_text, -headline=2,bottomline=1) -xlab_text<-c(0.3,0.5,0.8,1.0,1.5) -xlab<-log(xlab_text) -xlim<-log(c(min(xlab_text),max(xlab_text))) -header<-list(list(y=0.7, -text=c("Group1","Group2","Risk ratio (95% CI)","P-value"), -x=c(0.10,0.32,0.7,0.98)), -list(y=0.3,text=c("N","mean (sd)","N","mean (sd)"), -x=c(0.07,0.18,0.28,0.38))) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -lscale=TRUE, -xtitle=xtitle,shift_xaxis=0.3,xlab_line=-0.8, -xlim=xlim,xlab=xlab, xlab_text=xlab_text, -headline=2,bottomline=1) -xlab_text<-c(0.5,0.8,1.0,1.5) -xlab<-log(xlab_text) -xlim<-log(c(0.3,1.5)) -header<-list(list(y=0.7, -text=c("Group1","Group2","Risk ratio (95% CI)","P-value"), -x=c(0.10,0.32,0.7,0.98)), -list(y=0.3,text=c("N","mean (sd)","N","mean (sd)"), -x=c(0.07,0.18,0.28,0.38))) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -lscale=TRUE, -xtitle=xtitle,shift_xaxis=0.3,xlab_line=-0.8, -xlim=xlim,xlab=xlab, xlab_text=xlab_text, -headline=2,bottomline=1) -xlab_text<-c(0.4,0.5,0.8,1.0,1.5) -xlab<-log(xlab_text) -xlim<-log(c(min(xlab_text),max(xlab_text))) -header<-list(list(y=0.7, -text=c("Group1","Group2","Risk ratio (95% CI)","P-value"), -x=c(0.10,0.32,0.7,0.98)), -list(y=0.3,text=c("N","mean (sd)","N","mean (sd)"), -x=c(0.07,0.18,0.28,0.38))) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -lscale=TRUE, -xtitle=xtitle,shift_xaxis=0.3,xlab_line=-0.8, -xlim=xlim,xlab=xlab, xlab_text=xlab_text, -headline=2,bottomline=1) -xlab_text<-c(0.3,0.5,0.8,1.0,1.5) -xlab<-log(xlab_text) -xlim<-log(c(min(xlab_text),max(xlab_text))) -header<-list(list(y=0.7, -text=c("Group1","Group2","Risk ratio (95% CI)","P-value"), -x=c(0.10,0.32,0.7,0.98)), -list(y=0.3,text=c("N","mean (sd)","N","mean (sd)"), -x=c(0.07,0.18,0.28,0.38))) -fplot(dat=forplotdata,header=header,lwidths=lwidths,lheights=lheights, -ref=list(x=0,col=2,extend=2), -lscale=TRUE, -xtitle=xtitle,shift_xaxis=0.3,xlab_line=-0.8, -xlim=xlim,xlab=xlab, xlab_text=xlab_text, -headline=2,bottomline=1) -2160/18 -1890/18 -load_all() -devtools::load_all() -remotes::install_github("lbueti/forplot")