# \donttest{
if (requireNamespace("mlbench")) {
library(mlbench)
data(Sonar)
y <- Sonar$Class
x <- Sonar[, -61]
fit1 <- nestcv.glmnet(y, x, family = "binomial", alphaSet = 1, cv.cores = 2)
fit1$prc <- prc(fit1) # calculate precision-recall curve
fit2 <- nestcv.train(y, x, method = "gbm", cv.cores = 2)
fit2$prc <- prc(fit2)
plot(fit1$prc)
lines(fit2$prc, col = "red")
}
# }
Run the code above in your browser using DataLab