# NOT RUN {
library(phenology)
# }
# NOT RUN {
# Example
t <- 1:1000
par <- c(D1=200, D2D1=100, D3D2=200,
A=-logit(0.02), B=-logit(0.05), C=-logit(0.07))
y <- Tagloss_model(t, par)
plot(x=t, y, type="l")
# }
Run the code above in your browser using DataLab