if (FALSE) {
data(bartlett2009.fitted)
trs.phenophases <- PhenoTrs(
x=bartlett2009.fitted$fit$predicted,
fit=bartlett2009.fitted$fit)
plot(bartlett2009.fitted$fit$predicted)
abline(v=trs.phenophases[c(1:2,4)], col=palette())
}
Run the code above in your browser using DataLab