# \donttest{
data("PISAindex")
n <- nrow(PISAindex) # Observations in the dataset
selected <- sample(1:n, n * 0.7) # Training indexes
training <- PISAindex[selected, ] # Training set
test <- PISAindex[- selected, ] # Test set
bestEAT(training = training,
test = test,
x = 6:9,
y = 3,
numStop = c(3, 5, 7),
fold = c(5, 7, 10))
# }
Run the code above in your browser using DataLab