67
правок
Изменения
Добавлена множественная регрессия
#Создаем модель
data.x <- lm(data$x ~ data$y)
#Получаем информацию о созданной модели
summary(data.x)
plot(data$y, data$x)
lines(data$y, predict(data.x), col = 'red')
</pre>
==== Множественная регрессия ====
<pre>
#$$Читаем данные
data <- read.delim('input.dat', header = TRUE)
#Создаем модель множественной регрессии
fit <- lm(target ~ x + y + z, data = data)
#Получаем информацию о созданной модели
summary(fit)
</pre>
=== Кластеризация ===
