パッケージmgcvのこのスレッドからの推奨に基づいて、特定の値でGAMモデルを実行して正確な見積もりを取得しようとしています。予測関数を使用すると、結果は GAM からの推定値と一致しません。
これが私が興味を持っている私のモデルです:
mod <- gam(y~s(a, by=b), data = dat)
次を使用して結果を取得する場合:
plot(mod)
結果は、次の方法を使用して変数 a の単一のプロット ポイントを推定しようとした場合とは異なります。
pdat <- with(dat,
data.frame(a = 0,
b = mean(b,na.rm = TRUE)))
pred <- predict(mod, pdat, type = "response", se.fit = TRUE)
pdat <- transform(pdat, fitted = pred$fit)
pdat <- transform(pdat, upper = fitted + (1.96 * pred$se.fit),
lower = fitted - (1.96 * pred$se.fit))
私が間違っているかもしれないことについて何か提案はありますか?