data("Wage", package = "ISLR")
str(Wage)
head(Wage)
y <- lm(wage~year+age+maritl+race+education+jobclass+health+health_ins, data= Wage)
library(modelr)
Wage$age[30:20]
MM<-model.matrix(age~education, data= Wage)
Wage2 <- cbind(Wage[,1:4], MM)
head(Wage2)
Создайте матрицу модели, в которую включены нелинейные эффекты для переменного возраста, и используйте подходящие контрасты для переменного образования. Используйте (a) полиномы возраста, а также (b) ортогональные полиномы для возраста степени 4.data ("Wage", package = "ISLR")
Я пытался сделать это, но я не уверен, если Я не ошибаюсь. Плюс как добавить нелинейные эффекты ?!