您好，您这样没有任何细节和具体内容，别的会员很难帮助您。建议将问题描述清楚，也更容易让大家了解情况，才能有效提供帮助。

library(mgcv);### get package
dat<-read.csv("c:\\users\\Administrator\\Desktop\\heatwave.csv",head=T);### get data
dat$stratadow<-paste(dat$strata28,dat$dow,sep="");### create strata and day of week  #Unadjusted                                                                                                                               library(tsModel);                                                                                                                        ttt2=mutate(dat,tm1=Lag(hw,1));                                                                                         model=gam(death ~ tm1+as.factor(stratadow), family=poisson, matchdow=true,data=ttt2);                          summary(model);这是我的程序

方便的可以加我QQ 309284678

lag(hw,1)

请看我的程序，我用的也是这个，但是出不来结果