data(smoking)
smk2 <- setup(study=study,trt=trt,d=d,n=n,measure="OR",ref="A",data=smoking)
nmaleague(smk2) # default setting
nmaleague(smk2, eform=TRUE) # transformed to exponential-scale
nmaleague(smk2, eform=TRUE, digits=2) # digits can be changed
nmaleague(smk2, eform=TRUE, PI=TRUE) # prediction intervals
Run the code above in your browser using DataLab