## Not run:
# #spatial lag selection
# data(mite)
# data(mite.xy)
# lagSelect(sampleData=mite,sampleLocation=cbind(mite.xy,z=0),lagmin=0.1
# ,lagmax=1,by=0.1,numTests=9)
#
# #temporal lag selection
# data(pyrifos)
# pyrifos.levels<-data.frame(ditch=gl(12,1,length=132),
# dose=factor(rep(c(0.1, 0, 0, 0.9, 0, 44, 6, 0.1, 44, 0.9, 0, 6),11)),
# week= as.numeric(as.character(gl(11, 12,
# labels=c(-4, -1, 0.1, 1, 2, 4, 8, 12, 15, 19, 24)))))
# lagSelect(sampleData=pyrifos,sampleTime=pyrifos.levels$week,
# option=2,lagmin=1,lagmax=6,by=1,numTests=9)
# ## End(Not run)
Run the code above in your browser using DataLab