y <- breastcancer[[1]]
X <- as.matrix(breastcancer[,2:ncol(breastcancer)])
mod <- risk_mod(X, y)
get_metrics(mod, X, y)
get_metrics(mod, X, y, threshold = c(150, 175, 200), threshold_type = "score")
Run the code above in your browser using DataLab