if (FALSE) {
library(phenology)
# Example
######### Fit using Maximum-Likelihood
par <- c(meanIP = 9.9959691992722917,
sdIP = 0.10066664270893474,
minIP = 7.5684588178888754,
pAbort = 2.2510012544630911,
meanAbort = 2.8969185085603386,
sdAbort = 0.92688983853803242,
pCapture = -1.0393803705929086,
meanECF = 3.9551519427394255,
sdECF = 0.31657679943365019)
IPPredict(par=par, IP=c(10, 80))
}
Run the code above in your browser using DataLab