library("mada")
MRI <- cervical[cervical$method==3,]
MRIa <- MRI[,5:8]
MRIad <- madad(MRIa)
sdta(Se=MRIad$sens$sens,Fp=MRIad$fpr$fpr,
Secl=MRIad$sens$sens.ci[,1],Fpcl=MRIad$fpr$fpr.ci[,1])
sdta(Se=MRIad$sens$sens,Fp=MRIad$fpr$fpr,
Secu=MRIad$sens$sens.ci[,2],Fpcu=MRIad$fpr$fpr.ci[,2])
Run the code above in your browser using DataLab