andreas/daDoctoR
1
0
Fork 0
mirror of https://github.com/agdamsbo/daDoctoR.git synced 2024-10-29 18:21:53 +01:00
Code Issues Projects Releases Wiki Activity

u

Browse Source
This commit is contained in:
agdamsbo 2018-10-23 10:28:32 +02:00
parent 9f41296e9f
commit dc288f047b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
R/strobe_diff_twodim.R
View File

@ -35,7 +35,7 @@ strobe_diff_twodim<-function(meas,group,adj,data,dec=2){
lo<-round(ci[-1,1],dec) lo<-round(ci[-1,1],dec)
up<-round(ci[-1,2],dec) up<-round(ci[-1,2],dec)
or_ci<-c("0",paste0(co," (",lo," to ",up,")")) or_ci<-c("REF",paste0(co," (",lo," to ",up,")"))
amod<-lm(m~.,data=dat) amod<-lm(m~.,data=dat)
aci<-confint(amod) aci<-confint(amod)
@ -43,7 +43,7 @@ strobe_diff_twodim<-function(meas,group,adj,data,dec=2){
alo<-round(aci[2:length(levels(g)),1],dec) alo<-round(aci[2:length(levels(g)),1],dec)
aup<-round(aci[2:length(levels(g)),2],dec) aup<-round(aci[2:length(levels(g)),2],dec)
aor_ci<-c("0",paste0(aco," (",alo," to ",aup,")")) aor_ci<-c("REF",paste0(aco," (",alo," to ",aup,")"))
nr<-c() nr<-c()