tests/testthat/test.01-Medfly.R

output <- PSPMdemo("Medfly", clean=TRUE, force=TRUE)

output <- PSPMdemo("Medfly", c(2, 11, 0.1, 11, 20), options = c("report", "2"))

# plot(output$curvepoints[,1], output$curvepoints[,2], type='l', lwd=2, xlab="Juvenile period", ylab="Population growth rate", font.lab=2)

PSPMclean("F")

Try the PSPManalysis package in your browser

Any scripts or data that you put into this service are public.

PSPManalysis documentation built on Jan. 22, 2023, 1:10 a.m.