test/getCDL_test.R

library(cdlTools)
library(rgdal)
library(tictoc)

data(stateNames)

for( state in stateNames$STATENAME) {
  cat(sprintf("*** %s ***\n", state))
  tic(sprintf("*** %s ***\n", state))
  getCDL(state,2006:2019,location="/Volumes/data/CDL/CDL/",ssl.verifypeer = FALSE)
  toc()
}
#zz <- createComparableCDL(z,baseIndex=1,progress="text")
jlisic/cdlTools documentation built on March 28, 2024, 4:28 a.m.