После подбора сплайновой модели
fit<-lm(wage ~ bs(age,knots = c(30,50,60)),data = Wage)
как прогнозировать конкретный возраст?
Попробуйте:
predict (fit ,newdata =list(age = 30))
Теперь вы спросите, откуда я знаю, что возраст должен быть 30. Одно слово для вас - «Магия»