data(toys)
toys.rf <- randomForest::randomForest(toys$x, toys$y)
toys.rf
if (FALSE) {
# VSURF applied for toys data:
# (a few minutes to execute)
data(toys)
toys.vsurf <- VSURF(toys$x, toys$y)
toys.vsurf
}
Run the code above in your browser using DataLab