# \donttest{
data(iris)
x <- iris[, 1:4]
y <- iris[, 5]
fit <- nestcv.glmnet(y, x,
family = "multinomial",
alpha = 1,
outer_train_predict = TRUE,
n_outer_folds = 3)
summary(fit)
innercv_summary(fit)
train_summary(fit)
fit2 <- nestcv.train(y, x,
model="svm",
outer_train_predict = TRUE,
n_outer_folds = 3,
cv.cores = 2)
summary(fit2)
innercv_summary(fit2)
train_summary(fit2)
# }
Run the code above in your browser using DataLab