R version 4.5.3 (2026-03-11 ucrt) – “Reassured Reassurer” Copyright (C) 2026 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64
R – это свободное ПО, и оно поставляется безо всяких гарантий. Вы вольны распространять его при соблюдении некоторых условий. Введите ‘license()’ для получения более подробной информации.
R – это проект, в котором сотрудничает множество разработчиков. Введите ‘contributors()’ для получения дополнительной информации и ‘citation()’ для ознакомления с правилами упоминания R и его пакетов в публикациях.
Введите ‘demo()’ для запуска демонстрационных программ, ‘help()’ – для получения справки, ‘help.start()’ – для доступа к справке через браузер. Введите ‘q()’, чтобы выйти из R.
install.packages(c(“caret”, “ggplot2”, “FSelector”, “arules”, + “Boruta”, “mlbench”, “knitr”)) — Пожалуйста, выберите зеркало CRAN для использования в этой сессии — устанавливаю также зависимости ‘listenv’, ‘parallelly’, ‘future’, ‘globals’, ‘shape’, ‘future.apply’, ‘numDeriv’, ‘progressr’, ‘SQUAREM’, ‘utf8’, ‘diagram’, ‘lava’, ‘pillar’, ‘tzdb’, ‘prodlim’, ‘timechange’, ‘pkgconfig’, ‘stringi’, ‘proxy’, ‘iterators’, ‘Rcpp’, ‘data.table’, ‘dplyr’, ‘clock’, ‘glue’, ‘gower’, ‘hardhat’, ‘ipred’, ‘lubridate’, ‘magrittr’, ‘purrr’, ‘sparsevctrs’, ‘tibble’, ‘tidyr’, ‘tidyselect’, ‘timeDate’, ‘stringr’, ‘cpp11’, ‘farver’, ‘labeling’, ‘R6’, ‘RColorBrewer’, ‘viridisLite’, ‘RWekajars’, ‘rJava’, ‘RcppEigen’, ‘e1071’, ‘foreach’, ‘ModelMetrics’, ‘plyr’, ‘pROC’, ‘recipes’, ‘reshape2’, ‘withr’, ‘cli’, ‘gtable’, ‘isoband’, ‘lifecycle’, ‘rlang’, ‘S7’, ‘scales’, ‘vctrs’, ‘digest’, ‘entropy’, ‘randomForest’, ‘RWeka’, ‘generics’, ‘ranger’, ‘evaluate’, ‘highr’, ‘xfun’, ‘yaml’
пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/listenv_0.10.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/parallelly_1.46.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/future_1.70.0.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/globals_0.19.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/shape_1.4.6.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/future.apply_1.20.2.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/numDeriv_2016.8-1.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/progressr_0.18.0.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/SQUAREM_2026.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/utf8_1.2.6.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/diagram_1.6.5.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/lava_1.8.2.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/pillar_1.11.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/tzdb_0.5.0.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/prodlim_2026.03.11.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/timechange_0.4.0.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/pkgconfig_2.0.3.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/stringi_1.8.7.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/proxy_0.4-29.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/iterators_1.0.14.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/Rcpp_1.1.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/data.table_1.18.2.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/dplyr_1.2.0.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/clock_0.7.4.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/glue_1.8.0.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/gower_1.0.2.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/hardhat_1.4.2.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/ipred_0.9-15.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/lubridate_1.9.5.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/magrittr_2.0.4.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/purrr_1.2.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/sparsevctrs_0.3.6.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/tibble_3.3.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/tidyr_1.3.2.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/tidyselect_1.2.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/timeDate_4052.112.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/stringr_1.6.0.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/cpp11_0.5.3.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/farver_2.1.2.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/labeling_0.4.3.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/R6_2.6.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/RColorBrewer_1.1-3.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/viridisLite_0.4.3.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/RWekajars_3.9.3-2.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/rJava_1.0-16.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/RcppEigen_0.3.4.0.2.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/e1071_1.7-17.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/foreach_1.5.2.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/ModelMetrics_1.2.2.2.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/plyr_1.8.9.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/pROC_1.19.0.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/recipes_1.3.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/reshape2_1.4.5.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/withr_3.0.2.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/cli_3.6.5.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/gtable_0.3.6.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/isoband_0.3.0.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/lifecycle_1.0.5.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/rlang_1.1.7.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/S7_0.2.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/scales_1.4.0.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/vctrs_0.7.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/digest_0.6.39.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/entropy_1.3.2.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/randomForest_4.7-1.2.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/RWeka_0.4-47.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/generics_0.1.4.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/ranger_0.18.0.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/evaluate_1.0.5.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/highr_0.12.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/xfun_0.56.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/yaml_2.3.12.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/caret_7.0-1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/ggplot2_4.0.2.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/FSelector_0.34.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/arules_1.7.13.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/Boruta_9.0.0.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/mlbench_2.1-7.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/knitr_1.51.zip’ пакет ‘listenv’ успешно распакован, MD5-суммы проверены пакет ‘parallelly’ успешно распакован, MD5-суммы проверены пакет ‘future’ успешно распакован, MD5-суммы проверены пакет ‘globals’ успешно распакован, MD5-суммы проверены пакет ‘shape’ успешно распакован, MD5-суммы проверены пакет ‘future.apply’ успешно распакован, MD5-суммы проверены пакет ‘numDeriv’ успешно распакован, MD5-суммы проверены пакет ‘progressr’ успешно распакован, MD5-суммы проверены пакет ‘SQUAREM’ успешно распакован, MD5-суммы проверены пакет ‘utf8’ успешно распакован, MD5-суммы проверены пакет ‘diagram’ успешно распакован, MD5-суммы проверены пакет ‘lava’ успешно распакован, MD5-суммы проверены пакет ‘pillar’ успешно распакован, MD5-суммы проверены пакет ‘tzdb’ успешно распакован, MD5-суммы проверены пакет ‘prodlim’ успешно распакован, MD5-суммы проверены пакет ‘timechange’ успешно распакован, MD5-суммы проверены пакет ‘pkgconfig’ успешно распакован, MD5-суммы проверены пакет ‘stringi’ успешно распакован, MD5-суммы проверены пакет ‘proxy’ успешно распакован, MD5-суммы проверены пакет ‘iterators’ успешно распакован, MD5-суммы проверены пакет ‘Rcpp’ успешно распакован, MD5-суммы проверены пакет ‘data.table’ успешно распакован, MD5-суммы проверены пакет ‘dplyr’ успешно распакован, MD5-суммы проверены пакет ‘clock’ успешно распакован, MD5-суммы проверены пакет ‘glue’ успешно распакован, MD5-суммы проверены пакет ‘gower’ успешно распакован, MD5-суммы проверены пакет ‘hardhat’ успешно распакован, MD5-суммы проверены пакет ‘ipred’ успешно распакован, MD5-суммы проверены пакет ‘lubridate’ успешно распакован, MD5-суммы проверены пакет ‘magrittr’ успешно распакован, MD5-суммы проверены пакет ‘purrr’ успешно распакован, MD5-суммы проверены пакет ‘sparsevctrs’ успешно распакован, MD5-суммы проверены пакет ‘tibble’ успешно распакован, MD5-суммы проверены пакет ‘tidyr’ успешно распакован, MD5-суммы проверены пакет ‘tidyselect’ успешно распакован, MD5-суммы проверены пакет ‘timeDate’ успешно распакован, MD5-суммы проверены пакет ‘stringr’ успешно распакован, MD5-суммы проверены пакет ‘cpp11’ успешно распакован, MD5-суммы проверены пакет ‘farver’ успешно распакован, MD5-суммы проверены пакет ‘labeling’ успешно распакован, MD5-суммы проверены пакет ‘R6’ успешно распакован, MD5-суммы проверены пакет ‘RColorBrewer’ успешно распакован, MD5-суммы проверены пакет ‘viridisLite’ успешно распакован, MD5-суммы проверены пакет ‘RWekajars’ успешно распакован, MD5-суммы проверены пакет ‘rJava’ успешно распакован, MD5-суммы проверены пакет ‘RcppEigen’ успешно распакован, MD5-суммы проверены пакет ‘e1071’ успешно распакован, MD5-суммы проверены пакет ‘foreach’ успешно распакован, MD5-суммы проверены пакет ‘ModelMetrics’ успешно распакован, MD5-суммы проверены пакет ‘plyr’ успешно распакован, MD5-суммы проверены пакет ‘pROC’ успешно распакован, MD5-суммы проверены пакет ‘recipes’ успешно распакован, MD5-суммы проверены пакет ‘reshape2’ успешно распакован, MD5-суммы проверены пакет ‘withr’ успешно распакован, MD5-суммы проверены пакет ‘cli’ успешно распакован, MD5-суммы проверены пакет ‘gtable’ успешно распакован, MD5-суммы проверены пакет ‘isoband’ успешно распакован, MD5-суммы проверены пакет ‘lifecycle’ успешно распакован, MD5-суммы проверены пакет ‘rlang’ успешно распакован, MD5-суммы проверены пакет ‘S7’ успешно распакован, MD5-суммы проверены пакет ‘scales’ успешно распакован, MD5-суммы проверены пакет ‘vctrs’ успешно распакован, MD5-суммы проверены пакет ‘digest’ успешно распакован, MD5-суммы проверены пакет ‘entropy’ успешно распакован, MD5-суммы проверены пакет ‘randomForest’ успешно распакован, MD5-суммы проверены пакет ‘RWeka’ успешно распакован, MD5-суммы проверены пакет ‘generics’ успешно распакован, MD5-суммы проверены пакет ‘ranger’ успешно распакован, MD5-суммы проверены пакет ‘evaluate’ успешно распакован, MD5-суммы проверены пакет ‘highr’ успешно распакован, MD5-суммы проверены пакет ‘xfun’ успешно распакован, MD5-суммы проверены пакет ‘yaml’ успешно распакован, MD5-суммы проверены пакет ‘caret’ успешно распакован, MD5-суммы проверены пакет ‘ggplot2’ успешно распакован, MD5-суммы проверены пакет ‘FSelector’ успешно распакован, MD5-суммы проверены пакет ‘arules’ успешно распакован, MD5-суммы проверены пакет ‘Boruta’ успешно распакован, MD5-суммы проверены пакет ‘mlbench’ успешно распакован, MD5-суммы проверены пакет ‘knitr’ успешно распакован, MD5-суммы проверены
Скачанные бинарные пакеты находятся в C:_packages > dir.create(“C:/R_lab_plots”, showWarnings = FALSE) > setwd(“C:/R_lab_plots”) > all_models <- names(getModelInfo()) Ошибка в getModelInfo() : не могу найти функцию “getModelInfo” > cat(“Всего доступно методов:”, length(all_models), “”) Ошибка: объект ‘all_models’ не найден > cat(“Первые 20 методов:”, paste(head(all_models, 20), collapse = “,”), “”) Ошибка: объект ‘all_models’ не найден > library(caret) Загрузка требуемого пакета: ggplot2 Загрузка требуемого пакета: lattice > > all_models <- names(getModelInfo()) > cat(“Всего доступно методов:”, length(all_models), “”) Всего доступно методов: 239 > cat(“Первые 20 методов:”, paste(head(all_models, 20), collapse = “,”), “”) Первые 20 методов: ada, AdaBag, AdaBoost.M1, adaboost, amdai, ANFIS, avNNet, awnb, awtan, bag, bagEarth, bagEarthGCV, bagFDA, bagFDAGCV, bam, bartMachine, bayesglm, binda, blackboost, blasso > set.seed(123) > x <- matrix(rnorm(50*5), ncol = 5) > y <- factor(rep(c(“A”, “B”), 25)) > df <- as.data.frame(x) > colnames(df) <- paste0(“Feature”, 1:5) > df\(Class <- y > jpeg("featurePlot_pairs.jpg", width = 800, height = 600) > featurePlot(x = df[, 1:5], y = df\)Class, plot = “pairs”) > dev.off() null device 1 > cat(“График pairs сохранен”) График pairs сохранен > jpeg(“featurePlot_ellipse.jpg”, width = 800, height = 600) > featurePlot(x = df[, 1:5], y = df\(Class, plot = "ellipse") Ошибка в grid.Call.graphics(C_downviewport, name\)name, strict) : Не могу найти оконницу ‘plot_01.panel.1.1.off.vp’ > dev.off() null device 1 > cat(“График ellipse сохранен”) График ellipse сохранен > jpeg(“featurePlot_box.jpg”, width = 800, height = 600) > featurePlot(x = df[, 1:5], y = df\(Class, plot = "box") > dev.off() null device 1 > cat("График boxplot сохранен\n") График boxplot сохранен > jpeg("featurePlot_density.jpg", width = 800, height = 600) > featurePlot(x = df[, 1:5], y = df\)Class, plot = “density”) > dev.off() null device 1 > cat(“График density сохранен”) График density сохранен > library(FSelector) Ошибка: не удалась загрузка пакета или пространства имен для ‘FSelector’: .onLoad не удалось в loadNamespace() для ‘rJava’, подробности: вызов: fun(libname, pkgname) ошибка: JAVA_HOME cannot be determined from the Registry > data(iris) > weights_ig <- information.gain(Species ~ ., data = iris) Ошибка в information.gain(Species ~ ., data = iris) : не могу найти функцию “information.gain” > cat(“=== Information Gain ===”)
=== Information Gain === > print(weights_ig) Ошибка: объект ‘weights_ig’ не найден > library(FSelector) > data(iris) > > # Information Gain > weights_ig <- information.gain(Species ~ ., data = iris) > cat(“=== Information Gain ===”)
=== Information Gain === > print(weights_ig) attr_importance Sepal.Length 0.4521286 Sepal.Width 0.2672750 Petal.Length 0.9402853 Petal.Width 0.9554360 > > # Gain Ratio > weights_gr <- gain.ratio(Species ~ ., data = iris) > cat(“=== Gain Ratio ===”)
=== Gain Ratio === > print(weights_gr) attr_importance Sepal.Length 0.4196464 Sepal.Width 0.2472972 Petal.Length 0.8584937 Petal.Width 0.8713692 > > # Chi-squared > weights_chi <- chi.squared(Species ~ ., data = iris) > cat(“=== Chi-squared ===”)
=== Chi-squared === > print(weights_chi) attr_importance Sepal.Length 0.6288067 Sepal.Width 0.4922162 Petal.Length 0.9346311 Petal.Width 0.9432359 > > # Визуализация > jpeg(“fs_importance.jpg”, width = 900, height = 400) > par(mfrow = c(1, 3)) > barplot(t(as.matrix(weights_ig)), main = “Information Gain”, + ylab = “Важность”, col = “steelblue”, ylim = c(0, 2)) > barplot(t(as.matrix(weights_gr)), main = “Gain Ratio”, + ylab = “Важность”, col = “coral”, ylim = c(0, 2)) > barplot(t(as.matrix(weights_chi)), main = “Chi-squared”, + ylab = “Важность”, col = “lightgreen”, ylim = c(0, 150)) > dev.off() null device 1 > cat(“График важности признаков сохранен”) График важности признаков сохранен > library(arules) Загрузка требуемого пакета: Matrix
Присоединяю пакет: ‘arules’
Следующие объекты скрыты от ‘package:base’:
abbreviate, writedata(iris)
x <- iris$Sepal.Length
cat(“=== Оригинальные данные ===”)
=== Оригинальные данные === > print(summary(x)) Min. 1st Qu. Median Mean 3rd Qu. Max. 4.300 5.100 5.800 5.843 6.400 7.900 > > # 1. Interval method > disc_interval <- discretize(x, method = “interval”, breaks = 3) > cat(“=== Метод interval (равная ширина) ===”)
=== Метод interval (равная ширина) === > print(table(disc_interval)) disc_interval [4.3,5.5) [5.5,6.7) [6.7,7.9] 52 70 28 > print(attributes(disc_interval)$discretized:breaks) Ошибка в h(simpleError(msg, call)) : ошибка при оценке аргумента ‘x’ при выборе метода для функции ‘print’: объект ‘breaks’ не найден > > # 2. Frequency method > disc_frequency <- discretize(x, method = “frequency”, breaks = 3) > cat(“=== Метод frequency (равная частота) ===”)
=== Метод frequency (равная частота) === > print(table(disc_frequency)) disc_frequency [4.3,5.4) [5.4,6.3) [6.3,7.9] 46 53 51 > > # 3. Cluster method > disc_cluster <- discretize(x, method = “cluster”, breaks = 3) > cat(“=== Метод cluster (k-means) ===”)
=== Метод cluster (k-means) === > print(table(disc_cluster)) disc_cluster [4.3,5.42) [5.42,6.39) [6.39,7.9] 52 56 42 > > # 4. Fixed method > disc_fixed <- discretize(x, method = “fixed”, + breaks = c(-Inf, 5.0, 6.5, Inf), + labels = c(“Маленькие”, “Средние”, “Большие”)) > cat(“=== Метод fixed (фиксированные границы) ===”)
=== Метод fixed (фиксированные границы) === > print(table(disc_fixed)) disc_fixed Маленькие Средние Большие 22 93 35 > > # Сохраняем график сравнения > jpeg(“discretization_comparison.jpg”, width = 800, height = 800) > par(mfrow = c(2, 2)) > > # Гистограммы для каждого метода > hist(as.numeric(disc_interval), breaks = 3, + main = “Interval method”, xlab = ““, col =”lightblue”) > hist(as.numeric(disc_frequency), breaks = 3, + main = “Frequency method”, xlab = ““, col =”lightgreen”) > hist(as.numeric(disc_cluster), breaks = 3, + main = “Cluster method”, xlab = ““, col =”lightyellow”) > barplot(table(disc_fixed), main = “Fixed method”, + col = “lightcoral”) > > dev.off() null device 1 > cat(“График сравнения методов дискретизации сохранен”) График сравнения методов дискретизации сохранен > library(Boruta) > library(mlbench) > > data(“Ozone”) > cat(“=== Структура данных Ozone ===”)
=== Структура данных Ozone === > str(Ozone) ‘data.frame’: 366 obs. of 13 variables: $ V1 : Factor w/ 12 levels “1”,“2”,“3”,“4”,..: 1 1 1 1 1 1 1 1 1 1 … $ V2 : Factor w/ 31 levels “1”,“2”,“3”,“4”,..: 1 2 3 4 5 6 7 8 9 10 … $ V3 : Factor w/ 7 levels “1”,“2”,“3”,“4”,..: 4 5 6 7 1 2 3 4 5 6 … $ V4 : num 3 3 3 5 5 6 4 4 6 7 … $ V5 : num 5480 5660 5710 5700 5760 5720 5790 5790 5700 5700 … $ V6 : num 8 6 4 3 3 4 6 3 3 3 … $ V7 : num 20 NA 28 37 51 69 19 25 73 59 … $ V8 : num NA 38 40 45 54 35 45 55 41 44 … $ V9 : num NA NA NA NA 45.3 … $ V10: num 5000 NA 2693 590 1450 … $ V11: num -15 -14 -25 -24 25 15 -33 -28 23 -2 … $ V12: num 30.6 NA 47.7 55 57 … $ V13: num 200 300 250 100 60 60 100 250 120 120 … > > # Удаляем пропущенные значения > Ozone_clean <- na.omit(Ozone) > cat(“данных после удаления NA:”, dim(Ozone_clean), “”)
Размер данных после удаления NA: 203 13 > > # Применяем Boruta (это может занять некоторое время) > set.seed(123) > cat(“Boruta…”)
Запуск Boruta… > boruta_result <- Boruta(V4 ~ ., data = Ozone_clean, + doTrace = 1, # показывать прогресс + maxRuns = 100) After 11 iterations, +0.92 secs: confirmed 9 attributes: V1, V10, V11, V12, V13 and 4 more; rejected 2 attributes: V3, V6; still have 1 attribute left.
After 24 iterations, +1.7 secs: rejected 1 attribute: V2; no more attributes left.
cat(“=== Результат Boruta ===”)
=== Результат Boruta === > print(boruta_result) Boruta performed 24 iterations in 1.671066 secs. 9 attributes confirmed important: V1, V10, V11, V12, V13 and 4 more; 3 attributes confirmed unimportant: V2, V3, V6; > > # Статистика по признакам > final_decision <- attStats(boruta_result) > cat(“=== Детальная статистика ===”)
=== Детальная статистика === > print(final_decision) meanImp medianImp minImp maxImp normHits decision V1 9.5563296 9.7071000 8.4255686 10.7247899 1.0000000 Confirmed V2 1.1557680 1.1576551 -0.2474598 2.7423660 0.1666667 Rejected V3 -0.9877372 -0.7333367 -3.4162909 0.3794342 0.0000000 Rejected V5 9.2426781 9.2313179 8.1108460 10.5140883 1.0000000 Confirmed V6 0.9886679 1.3615721 -1.1013954 1.9852132 0.0000000 Rejected V7 11.7026875 11.5169965 10.5127703 13.4896943 1.0000000 Confirmed V8 17.1647491 17.2255744 16.0336735 18.5525852 1.0000000 Confirmed V9 19.2281405 19.0627349 17.5889826 20.9190449 1.0000000 Confirmed V10 9.8662368 9.7266893 8.6477478 11.3131795 1.0000000 Confirmed V11 11.8977619 11.8484607 10.9347533 13.6520570 1.0000000 Confirmed V12 14.6326841 14.6095338 13.5595253 16.0775580 1.0000000 Confirmed V13 9.4438214 9.5489762 8.1005306 10.7881019 1.0000000 Confirmed > > # Сохраняем график > jpeg(“boruta_boxplot.jpg”, width = 900, height = 600) > plot(boruta_result, las = 2, cex.axis = 0.7, + main = “Важность признаков по Boruta”) > dev.off() null device 1 > cat(“График Boruta сохранен”) График Boruta сохранен > > # Дополнительный график истории > jpeg(“boruta_history.jpg”, width = 900, height = 600) > plotImpHistory(boruta_result, las = 2, cex.axis = 0.7, + main = “История важности признаков”) > dev.off() null device 1 > cat(“График истории Boruta сохранен”) График истории Boruta сохранен > sink(“lab_report.txt”, append = FALSE, split = TRUE) > > cat(“========================================”) ======================================== > cat(“ЛАБОРАТОРНАЯ РАБОТА: ВЫБОР ПРИЗНАКОВ”) ЛАБОРАТОРНАЯ РАБОТА: ВЫБОР ПРИЗНАКОВ > cat(“========================================”) ========================================
cat(“Дата выполнения:”, date(), “”) Дата выполнения: Thu Mar 19 13:33:22 2026
cat(“ЗАДАНИЕ 1: CARET”) ЗАДАНИЕ 1: CARET cat(“—————-”) —————- cat(“Доступные методы выбора признаков:”) Доступные методы выбора признаков: cat(“Всего:”, length(all_models), “”) Всего: 239 cat(“Первые 10:”, paste(head(all_models, 10), collapse = “,”), “”) Первые 10: ada, AdaBag, AdaBoost.M1, adaboost, amdai, ANFIS, avNNet, awnb, awtan, bag
cat(“ЗАДАНИЕ 2: FSelector”) ЗАДАНИЕ 2: FSelector cat(“——————-”) ——————- cat(“Information Gain для iris:\n”) Information Gain для iris: print(weights_ig) attr_importance Sepal.Length 0.4521286 Sepal.Width 0.2672750 Petal.Length 0.9402853 Petal.Width 0.9554360 cat(“Ratio:”)
Gain Ratio: > print(weights_gr) attr_importance Sepal.Length 0.4196464 Sepal.Width 0.2472972 Petal.Length 0.8584937 Petal.Width 0.8713692 > cat(“-squared:”)
Chi-squared: > print(weights_chi) attr_importance Sepal.Length 0.6288067 Sepal.Width 0.4922162 Petal.Length 0.9346311 Petal.Width 0.9432359 > > cat(“: Дискретизация”)
ЗАДАНИЕ 3: Дискретизация > cat(“————————”) ———————— > cat(“Сравнение методов:”) Сравнение методов: > cat(“Interval (равная ширина):”) Interval (равная ширина): > print(table(disc_interval)) disc_interval [4.3,5.5) [5.5,6.7) [6.7,7.9] 52 70 28 > cat(“(равная частота):”)
Frequency (равная частота): > print(table(disc_frequency)) disc_frequency [4.3,5.4) [5.4,6.3) [6.3,7.9] 46 53 51 > cat(“(кластеризация):”)
Cluster (кластеризация): > print(table(disc_cluster)) disc_cluster [4.3,5.42) [5.42,6.39) [6.39,7.9] 52 56 42 > cat(“(фиксированные границы):”)
Fixed (фиксированные границы): > print(table(disc_fixed)) disc_fixed Маленькие Средние Большие 22 93 35 > > cat(“: Boruta”)
ЗАДАНИЕ 4: Boruta > cat(“—————-”) —————- > cat(“Результаты Boruta для Ozone:”) Результаты Boruta для Ozone: > print(boruta_result) Boruta performed 24 iterations in 1.671066 secs. 9 attributes confirmed important: V1, V10, V11, V12, V13 and 4 more; 3 attributes confirmed unimportant: V2, V3, V6; > cat(“признаков:”)
Важность признаков: > print(final_decision) meanImp medianImp minImp maxImp normHits decision V1 9.5563296 9.7071000 8.4255686 10.7247899 1.0000000 Confirmed V2 1.1557680 1.1576551 -0.2474598 2.7423660 0.1666667 Rejected V3 -0.9877372 -0.7333367 -3.4162909 0.3794342 0.0000000 Rejected V5 9.2426781 9.2313179 8.1108460 10.5140883 1.0000000 Confirmed V6 0.9886679 1.3615721 -1.1013954 1.9852132 0.0000000 Rejected V7 11.7026875 11.5169965 10.5127703 13.4896943 1.0000000 Confirmed V8 17.1647491 17.2255744 16.0336735 18.5525852 1.0000000 Confirmed V9 19.2281405 19.0627349 17.5889826 20.9190449 1.0000000 Confirmed V10 9.8662368 9.7266893 8.6477478 11.3131795 1.0000000 Confirmed V11 11.8977619 11.8484607 10.9347533 13.6520570 1.0000000 Confirmed V12 14.6326841 14.6095338 13.5595253 16.0775580 1.0000000 Confirmed V13 9.4438214 9.5489762 8.1005306 10.7881019 1.0000000 Confirmed > > cat(“========================================”)
======================================== > cat(“ГРАФИКИ СОХРАНЕНЫ В ПАПКЕ: C:/R_lab_plots”) ГРАФИКИ СОХРАНЕНЫ В ПАПКЕ: C:/R_lab_plots > cat(“========================================”) ======================================== > > sink() # закрываем файл > > cat(“сохранен в файл lab_report.txt”)
Отчет сохранен в файл lab_report.txt > cat(“Графики сохранены в папке C:/R_lab_plots”) Графики сохранены в папке C:/R_lab_plots > if (!require(“rmarkdown”)) install.packages(“rmarkdown”) Загрузка требуемого пакета: rmarkdown устанавливаю также зависимости ‘fs’, ‘rappdirs’, ‘base64enc’, ‘cachem’, ‘fastmap’, ‘memoise’, ‘mime’, ‘sass’, ‘bslib’, ‘fontawesome’, ‘htmltools’, ‘jquerylib’, ‘jsonlite’, ‘tinytex’
пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/fs_1.6.7.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/rappdirs_0.3.4.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/base64enc_0.1-6.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/cachem_1.1.0.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/fastmap_1.2.0.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/memoise_2.0.1.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/mime_0.13.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/sass_0.4.10.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/bslib_0.10.0.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/fontawesome_0.5.3.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/htmltools_0.5.9.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/jquerylib_0.1.4.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/jsonlite_2.0.0.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/tinytex_0.58.zip’ пробую URL ‘https://cran.ma.imperial.ac.uk/bin/windows/contrib/4.5/rmarkdown_2.30.zip’ пакет ‘fs’ успешно распакован, MD5-суммы проверены пакет ‘rappdirs’ успешно распакован, MD5-суммы проверены пакет ‘base64enc’ успешно распакован, MD5-суммы проверены пакет ‘cachem’ успешно распакован, MD5-суммы проверены пакет ‘fastmap’ успешно распакован, MD5-суммы проверены пакет ‘memoise’ успешно распакован, MD5-суммы проверены пакет ‘mime’ успешно распакован, MD5-суммы проверены пакет ‘sass’ успешно распакован, MD5-суммы проверены пакет ‘bslib’ успешно распакован, MD5-суммы проверены пакет ‘fontawesome’ успешно распакован, MD5-суммы проверены пакет ‘htmltools’ успешно распакован, MD5-суммы проверены пакет ‘jquerylib’ успешно распакован, MD5-суммы проверены пакет ‘jsonlite’ успешно распакован, MD5-суммы проверены пакет ‘tinytex’ успешно распакован, MD5-суммы проверены пакет ‘rmarkdown’ успешно распакован, MD5-суммы проверены
Скачанные бинарные пакеты находятся в C:_packages Предупреждение: В library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE, : нет пакета под названием ‘rmarkdown’ > if (!require(“knitr”)) install.packages(“knitr”) Загрузка требуемого пакета: knitr >