if (requireNamespace("mlbench", quietly = TRUE)) {
library(mlbench)
data(PimaIndiansDiabetes)
##forward search for all variables
varrank.output <- varrank(data.df = PimaIndiansDiabetes,
method = "peng",
variable.important = "diabetes",
discretization.method = "sturges",
algorithm = "forward", scheme = "mid")
##Print varrank output
varrank.output
}
Run the code above in your browser using DataLab