## Not run:
# # Get the lastest version at:
# # install.packages("http://www.ese.u-psud.fr/epc/conservation/CRAN/phenology.tar.gz",
# repos=NULL, type="source")
# library(phenology)
# # Read a file with data
# Gratiot<-read.delim("http://max2.ese.u-psud.fr/epc/conservation/BI/Complete.txt", header=FALSE)
# data(Gratiot)
# # Generate a formatted list nammed data_Gratiot
# refdate <- as.Date("2001-01-01")
# data_Gratiot <- add_phenology(Gratiot, name="Complete",
# reference=refdate, format="%d/%m/%Y")
# # Generate initial points for the optimisation
# parg <- par_init(data_Gratiot, parametersfixed=NULL)
# # Run the optimisation
# result_Gratiot <- fit_phenology(data=data_Gratiot, parametersfit=parg,
# parametersfixed=NULL, trace=1)
# data(result_Gratiot)
# # Plot the phenology and get some stats
# output <- plot(result_Gratiot)
# ## End(Not run)
Run the code above in your browser using DataLab