Невозможно построить гладкий сплайн в R

Question

Я пытаюсь использовать сглаживающий сплайн в моем наборе данных.Я использую функцию smooth.spline.И хочу подготовить мою подгонку рядом.Тем не менее, по какой-то причине он не будет строить мою модель.Это даже не дает никакой ошибки.Я получаю сообщение об ошибке только после запуска функции smooth.spline, что «перекрестная проверка с неуникальными значениями x кажется сомнительной».Но я не думаю, что это не должно иметь большого значения для практического результата.

Мой код:

library('splines')


fit_spline <- smooth.spline(data.train$age,data.train$effect,cv = TRUE)


plot(data$effect,data$age,col="grey")
lines(fit_spline,lwd=2,col="purple")



legend("topright",("Smoothing Splines with 5.048163 df selected by CV"),col="purple",lwd=2)

Что я получаю:

Может кто-нибудь сказать мне, чтоЯ тут не так делаю?

Answer 1

Два выпуска:

Номер 1. Если вы делаете smooth.spline(x, y), нанесите на карту свои данные с plot(x, y), а не plot(y, x).

Номер 2. Не вводите data.train для подгонки, тогда как другой набор данных data для построения. Если вы хотите увидеть, как выглядит сплайн в новых точках данных, сначала используйте predict.smooth.spline. Смотри ?predict.smooth.spline.