求问                                      Error in as.vector(season(beersales)) : could not find function "season         
怎么解决

3.1.3没有season函数，那应该用什么分析points(y=rstudent(beersales.lm2),x=as.vector(time(beersales)),pch=as.vector(season(beersales)))