if (FALSE) {
library(phenology)
# Example
par <- c(meanIP = 9.8,
sdIP = 0.1,
minIP = 7,
pAbort = -logit(0.1),
meanAbort = 2,
sdAbort = 0.05,
pCapture = -logit(0.8),
meanECF = 4,
sdECF = 0.1)
model <- IPModel(c(par, N=10000))
plot(model)
}
Run the code above in your browser using DataLab