# NOT RUN {
data(rooting)
rootRR<-pairwiseCI(cbind(root,noroot) ~ IBA,
data=rooting, by="Age", method="Prop.ratio")
# after calling summary,
# extracting parts of the output is easier:
srootRR<-summary(rootRR)
srootRR$'20'$conf.int$upper
# }
Run the code above in your browser using DataLab