ЕТ
Size: a a a
АК
PU
PU
АК
A
АК
PU
АК
АК
PU
PU
АК
АК
PU
DN
ЕТ
DN
fit_tg1 <- lm(target1 ~ tag1+tag12+tag20+tag22+tag23+tag24+tag43
+tag55+tag56+tag58+tag60+tag63+tag75, target1_train, na.action = na.omit)
summary(fit_tg1)
# bad model lets see corr
cor_data(target1_train)
target1_test$predict <- predict(fit_tg1, target1_test)
mse(target1_test$target1, target1_test$predict)