# NOT RUN {
data(ovarianCancer)
responses <- data.frame(ovarianCancer$response)
predictors <- data.frame(
n1 = as.numeric(as.numeric(ovarianCancer[[2]])),
n2 = as.numeric(as.numeric(ovarianCancer[[3]]))
)
names(predictors) = c("Protein 1689","Protein 1737")
detcurve <- detc(responses,predictors,
names = names(predictors),
positive = "Cancer",
title = "Proteomic patterns",
plotROC = TRUE)
# }
Run the code above in your browser using DataLab