在predict.gam（mgcv）中使用“ micv”平滑函数时出错

Question

在使用mgcv包预测GAM模型时，使用micv平滑函数（来自scam包）为协变量之一构建了GAM模型， mgcv出现以下错误：

Error in predict.gam(mod_gam, newdata = dfGAMDev) : 
  number of items to replace is not a multiple of replacement length

码：

 library(dplyr)
 library(ggplot2)
 library(car)
 library(mgcv)
 library(scam)

mod_gam <- gam(Y ~  X1 +  X2+   X3+  s(X4, bs='micv') +  X5,  data = dfGAMDev )
predDevGAM <- predict(mod_gam, newdata =dfGAMDev)

我也尝试了以下方法：

predDevGAM <- predict.gam(mod_gam, newdata =dfGAMDev)

所有变量都是数字

Answer 1

我一直在尝试构建形状不受约束的GAM模型，并使用不受约束的GAM模型函数gam代替scam函数。 以下代码有效：

 mod_gam <- scam(Y ~  X1 +  X2+   X3+  s(X4, bs='micv') +  X5,  data = dfGAMDev)

提出问题很抱歉。 我误解了，骗局包中的平滑函数可以在gam函数中使用