External validation on new data
Examples
set.seed(1)
X <- matrix(rnorm(200 * 3), 200, 3)
y <- as.integer(plogis(X[, 1] - 0.5 * X[, 2]) > runif(200))
mdl <- suppressWarnings(
glm(y ~ ., data = data.frame(y = y, X), family = binomial()))
predict_fn <- function(X) predict(mdl, newdata = data.frame(X),
type = "response")
res <- external_validate(predict_fn, X, y)
res$discrimination$auroc
#> [1] 0.7827131
