Nothing
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")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.