# NOT RUN {
library(DET)
data(ovarianCancer)
response = as.factor(ovarianCancer$response)
predictors = matrix(c(as.numeric(ovarianCancer[[2]]),
as.numeric(ovarianCancer[[3]])), ncol = 2)
colnames(predictors) = c("Protein 1689", "Protein 1737")
detCurves =
detc(
response,
predictors,
names = colnames(predictors),
positive = "Cancer"
)
plot(detCurves, main = "Proteomic patterns")
# }
Run the code above in your browser using DataLab