# NOT RUN {
data(shoshveg)
# }
# NOT RUN {
# returns a data.frame of vegetation
# }
# NOT RUN {
data(shoshsite)
# }
# NOT RUN {
res <- opttdev(shoshveg,
as.numeric(cut(shoshsite$elevation,5)))
# }
# NOT RUN {
# likely to be VERY slow
# }
Run the code above in your browser using DataLab