This commit is contained in:
agdamsbo 2018-10-05 12:44:34 +02:00
parent a56f4d3a1d
commit 51e0193c7c

View File

@ -81,8 +81,8 @@ strobe_print<-function(meas,var,group,adj,data,dec=2){
amod<-glm(m~.,family=binomial(),data=di) amod<-glm(m~.,family=binomial(),data=di)
aco<-round(exp(coef(amod)[2]),dec) aco<-round(exp(coef(amod)[2]),dec)
alo<-round(exp(confint(amod)[2,1]),dec) alo<-suppressMessages(round(exp(confint(amod)[2,1]),dec))
aup<-round(exp(confint(amod)[2,2]),dec) aup<-suppressMessages(round(exp(confint(amod)[2,2]),dec))
aci<-paste0(aco," (",alo," to ",aup,")") aci<-paste0(aco," (",alo," to ",aup,")")