FOPev11 <- plotFOP(toydata_sp1po, 2, intervals = 5, smoothwindow = 3)
FOPev11 <- plotFOP(toydata_sp1po, 2, intervals = 8)
FOPev12 <- plotFOP(toydata_sp1po, "EV12", intervals = 8, ylim=c(0,1))
FOPev12$EVoptimum
FOPev12$FOPdata
## Not run: ------------------------------------
# # From vignette:
# teraspifFOP <- plotFOP(grasslandPO, "teraspif")
# terslpdgFOP <- plotFOP(grasslandPO, "terslpdg", intervals = 25, pch=20, cex=1.1, col = "red")
# terslpdgFOP$EVoptimum
# terslpdgFOP$FOPdata
## ---------------------------------------------
Run the code above in your browser using DataLab