Я немного не понимаю, как мне добавить прогнозируемые вероятности в новый столбец в исходном наборе данных «реклама» (я знаю, что должен быть тест / проверка, но это упражнение, и нам разрешено делать он не разбивает данные.
advertising <- read.csv('C:/Users/matpo/Desktop/advertising_1.csv', stringsAsFactors = TRUE)
LogMod <- glm(Clicked.on.Ad ~ Daily.Time.Spent.on.Site + Age + Area.Income, data=advertising, family=binomial(link="logit"))
summary(LogMod)
predicted <- predict(LogMod, advertising, type="response")
predicted [1:5]
Спасибо!