demo/Medfly.R

In PSPManalysis: Analysis of Physiologically Structured Population Models

devAskNewPage(ask = FALSE)
oldwd = getwd()
setwd(system.file("Models", package="PSPManalysis"))
if (!exists("par.defaults")) par.defaults <- par(no.readonly = T)

cmd = 'output <- PSPMdemo("Medfly")'

str = readline(paste0("\n> ", cmd, " [y(es)/s(kip)] : "))
if ((str == '') || (str == 'y') || (str == 'Y')) eval(parse(text=cmd))

cmd = 'output <- PSPMdemo("Medfly", clean=TRUE, force=TRUE)'
str = readline(paste0("\n> ", cmd, " [y(es)/s(kip)] : "))
if ((str == '') || (str == 'y') || (str == 'Y')) eval(parse(text=cmd))

cmd = 'output <- PSPMdemo("Medfly", c(2, 11, 0.1, 11, 20))'
str = readline(paste0("\n> ", cmd, " [y(es)/s(kip)] : "))
if ((str == '') || (str == 'y') || (str == 'Y')) {
  eval(parse(text=cmd))
  plot(output$curvepoints[,1], output$curvepoints[,2], type='l', lwd=2, xlab="Juvenile period", ylab="Population growth rate", font.lab=2)
}

par(par.defaults)
PSPMclean('F')
setwd(oldwd)