请注明:姓名-公司-职位
以便审核进群资格,未注明则拒绝
gam.pm <- gam(counts ~as.factor(weekday)+as.factor(year)+as.factor(season)
+s(maxt)+s(avehum)+s(date), data= train,method="GCV.Cp",
family=poisson(link = "log"))