## Not run: ------------------------------------
# responseEV1 <- plotResp(dat, deriveddat, "EV1", dir = "D:/path/to/modeling/directory")
#
# # From vignette
# pr_bygallResp <- plotResp(grasslandPO, grasslandEVselect[[1]], "pr_bygall")
# par(mfrow = c(1,2))
# pr_bygallFOP <- plotFOP(grasslandPO, "pr_bygall", intervals=50)
# pr_bygallResp <- plotResp(grasslandPO, grasslandEVselect[[1]], "pr_bygall")
# par(mfrow = c(1,1))
## ---------------------------------------------
Run the code above in your browser using DataLab