# NOT RUN {
library(AROC)
data(psa)
# Select the last measurement
newpsa <- psa[!duplicated(psa$id, fromLast = TRUE),]
# Log-transform the biomarker
newpsa$l_marker1 <- log(newpsa$marker1)
# }
# NOT RUN {
m0_BB <- pooledROC.BB(y0 = newpsa$l_marker1[newpsa$status == 0],
y1 = newpsa$l_marker1[newpsa$status == 1], p = seq(0,1,l=101), B = 5000)
### Threshold values for a fixed FPF
th_m0_BB <- compute.threshold.pooledROC.BB(m0_BB, FPF = 0.1)
th_m0_BB$threshold
# }
Run the code above in your browser using DataLab