# NOT RUN {
library(EGRET)
eList <- Choptank_eList
# }
# NOT RUN {
caseSetUp <- trendSetUp(eList, nBoot=100, blockLength=200)
eList <- setForBoot(eList, caseSetUp)
surfaces <- estSliceSurfacesSimpleAlt(eList, 1990)
# }
Run the code above in your browser using DataLab