data(HCC)
roc <- gROC(X = HCC$cg18384097, D = HCC$tumor) # Right-sided ROC curve
predict(roc, FPR = 0.5)
groc <- gROC(X = HCC$cg18384097, D = HCC$tumor, side = "both") # gROC curve
predict(groc, FPR = 0.5)
hroc_cg18384097 <- hROC(X = HCC$cg18384097, D = HCC$tumor,
formula.lrm = "D ~ rcs(X,8)")
predict(hroc_cg18384097, FPR = 0.5)
Run the code above in your browser using DataLab