Отчет о лабораторной работе 2

Автор: Веселова Вероника

Дата:

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

# Установка необходимых пакетов
install.packages("caret")
install.packages("FSelector")
install.packages("Boruta")
install.packages("mlbench")

# Загрузка пакетов
library(caret)
library(FSelector)
library(Boruta)
library(mlbench)

# Загрузка данных
data("Ozone", package = "mlbench")
    

Графический разведочный анализ данных с использованием featurePlot()

# Создание выборки данных для анализа
x <- matrix(rnorm(50*5), ncol = 5)
y <- factor(rep(c("A", "B"), 25))

# Выполнение графического анализа данных
featurePlot(x, y)
    

Определение важности признаков с помощью FSelector

# Использование набора данных iris
data(iris)

# Определение важности признаков
weights <- information.gain(Species ~ ., data = iris)

# Вывод важности признаков
print(weights)
    

Дискретизация переменных с помощью discretize()

library(arules)

# Преобразование непрерывной переменной в категориальную
iris_discrete <- discretize(iris$Sepal.Length, method = "interval", categories = 3)
print(iris_discrete)
    

Выбор признаков с помощью Boruta

# Выбор признаков для данных Ozone
boruta_result <- Boruta(Ozone ~ ., data = Ozone, doTrace = 2)

# Вывод результатов
print(boruta_result)

# Построение графика
plot(boruta_result)
    

Заключение

В ходе выполнения работы мы:

• Проанализировали методы выбора признаков с использованием различных пакетов.
• Преобразовали переменные с помощью дискретизации.
• Выполнили выбор признаков для данных Ozone с использованием пакета Boruta.