I have a model.
library(dlnm) library(splines) data(chicagoNMMAPS) cb1.pm <- crossbasis(chicagoNMMAPS$pm10, lag=15, argvar=list(fun="lin"),