2_lab

Установка и загрузка необходимых пакетов

install.packages(“caret”, repos = “http://cran.us.r-project.org”) library(caret)

Получение информации о моделях

names(getModelInfo())

Установка семени для воспроизводимости

set.seed(123)

Генерация данных

x <- matrix(rnorm(50 * 5), ncol = 5) y <- factor(rep(c(“A”, “B”), 25))

Визуализация данных

featurePlot(x, y, plot = “box”) featurePlot(x, y, plot = “density”)

Сохранение графиков в файлы

jpeg(“boxplot.jpg”) featurePlot(x, y, plot = “box”) dev.off()

jpeg(“density.jpg”) featurePlot(x, y, plot = “density”) dev.off()

Установка и загрузка пакетов для выбора признаков

install.packages(“FSelector”, repos = “http://cran.us.r-project.org”) library(FSelector)

install.packages(“FSelectorRcpp”) library(FSelectorRcpp)

Вычисление информации о признаках

gain <- information_gain(Species ~ ., iris) print(gain)

Установка и загрузка пакета arules

install.packages(“arules”, repos = “http://cran.us.r-project.org”) library(arules)

Дискретизация данных

data(iris) iris_interval <- discretize(iris\(Sepal.Length, method = "interval", breaks = 5) iris_frequency <- discretize(iris\)Sepal.Length, method = “frequency”, breaks = 5) iris_cluster <- discretize(iris\(Sepal.Length, method = "cluster", breaks = 5) iris_fixed <- discretize(iris\)Sepal.Length, method = “fixed”, categories = c(“0-4”, “4-6”, “6-8”, “8-10”))

Печать результатов дискретизации

print(iris_interval) print(iris_frequency) print(iris_cluster) print(iris_fixed)

Установка и загрузка пакетов для выбора признаков с помощью Boruta

install.packages(“Boruta”, repos = “http://cran.us.r-project.org”) library(Boruta)

install.packages(“mlbench”, repos = “http://cran.us.r-project.org”) library(mlbench)

Работа с данными Ozone

data(“Ozone”) set.seed(123) Ozone <- na.omit(Ozone)

Применение метода Boruta

boruta_result <- Boruta(V4 ~ ., data = Ozone, doTrace = 2) print(boruta_result)

Получение выбранных признаков

selected_features <- getSelectedAttributes(boruta_result) Ozone_selected <- Ozone[, c(selected_features, “V4”)]

Визуализация выбранных признаков

boxplot(Ozone_selected, main = “Selected Features Boxplot”)