Я пытаюсь извлечь изменяющийся во времени параметр моей игры.
Это модель:
gam1 <- gam(as.numeric(A5_1)~s(tt,k=k)+s(tt,by=A5_1L,k=k)+s(tt,by=A5_2L,k=k)+
s(tt,by=A5_5L,k=k)+s(tt,by=A5_9L,k=k),data=data_subset)
gam2 <- gam(as.numeric(A5_2)~s(tt,k=k)+s(tt,by=A5_1L,k=k)+s(tt,by=A5_2L,k=k)+
s(tt,by=A5_5L,k=k)+s(tt,by=A5_9L,k=k),data=data_subset)
gam5 <- gam(as.numeric(A5_5)~s(tt,k=k)+s(tt,by=A5_1L,k=k)+s(tt,by=A5_2L,k=k)+
s(tt,by=A5_5L,k=k)+s(tt,by=A5_9L,k=k),data=data_subset)
gam9 <- gam(as.numeric(A5_9)~s(tt,k=k)+s(tt,by=A5_1L,k=k)+s(tt,by=A5_2L,k=k)+
s(tt,by=A5_5L,k=k)+s(tt,by=A5_9L,k=k),data=data_subset)
summary(gam1)
выглядит так:

Я могу создавать графики, показывающие параметры сглаживания с течением времени, вот так:
plot(gam1, select=2,ylim=c(-3,1),rug=F,xlab="time points",
ylab=substitute(paste("Joy",italic("(t-1)"), "on Joy",italic("(t)"))))
График выглядит так:

До сих пор я нашел функцию predict.gam()
:
predict.gam(gam1, type = "terms")
Функция прогнозирования дает мне:

(nrows = 103)
Однако выходные данные не соответствуют графику.Линия на графике начинается около 0,2, а параметр сглаживания из predict.gam()
составляет около 1,1.Как я могу извлечь правильные параметры сглаживания во времени?
В общем, я хочу эти параметры, чтобы я мог создавать различные qgraphs () с течением времени.Один qgraph в начале, середине и конце.Как и графики сетевого анализа.Если есть прямой способ создания нескольких графиков qgraph () из изменяющейся во времени игры, я с удовольствием приму это также.
Может быть, я даже буду использовать qgraph.animate (), как только я создаю матрицу этих параметров.
Большое спасибо!