install.packages(“caret”) library(caret) names(getModelInfo()) set.seed(123) x <- matrix(rnorm(50*5), ncol=5) colnames(x) <- paste0(“Var”, 1:5) y <- factor(rep(c(“A”, “B”), 25))
featurePlot(x = x, y = y, plot = “density”, auto.key = list(columns = 2))
install.packages(“FSelector”) library(FSelector) data(iris) weights <- gain.ratio(Species ~ ., data = iris) weights subset <- cutoff.k(weights, 2) subset
install.packages(“arules”) library(arules) summary(discretize(iris\(Sepal.Length, method = "interval", categories = 3)) summary(discretize(iris\)Sepal.Length, method = “frequency”, categories = 3)) summary(discretize(iris\(Sepal.Length, method = "cluster", categories = 3)) summary(discretize(iris\)Sepal.Length, method = “fixed”, breaks = c(4, 5.5, 7.5)))
install.packages(“Boruta”) library(Boruta) install.packages(“mlbench”) library(mlbench) data(“Ozone”) ozone_data <- na.omit(Ozone) set.seed(123) boruta_result <- Boruta(V4 ~ ., data = ozone_data, doTrace = 2) print(boruta_result) plot(boruta_result, las = 2, cex.axis = 0.7)