sz<-read.table("d:/sj2017.txt",header=T,na.strings = "NA",sep="\t")
library(mgcv)
library(splines)
summary(model<-gam(all~lag0pm10+ns(day,4*5)+ns(temp,6)+ns(rh,3)+as.factor(dow),data=sz,family=quasipoisson))
错误于eval(expr, envir, enclos) : 找不到对象'lag0pm10'

为啥啊？是数据导入有问题嘛？救救孩子！！