if (FALSE) {
data(bartlett2009.fitted)
klosterman.phenophases <- PhenoExtract(bartlett2009.fitted,
method='klosterman', uncert=TRUE, plot=FALSE)
PhenoPlot(bartlett2009.fitted, klosterman.phenophases$unc.df)
}
Run the code above in your browser using DataLab