andreas/daDoctoR
1
0
Fork 0
mirror of https://github.com/agdamsbo/daDoctoR.git synced 2024-11-22 03:40:23 +01:00
Code Issues Projects Releases Wiki Activity

u

Browse Source
This commit is contained in:
agdamsbo 2018-10-23 09:38:17 +02:00
parent 9c29e951e4
commit 9f41296e9f
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

@ -72,7 +72,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<-glm(m~.,family=binomial(),data=di) amod<-glm(m~.,family=binomial(),data=di)
aci<-confint(amod) aci<-confint(amod)
@ -80,7 +80,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()