## Not run:
# # 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 formated list nammed data_Gratiot
# data_Gratiot<-add_phenology(Gratiot, name="Complete",
# reference=as.Date("2001-01-01"), format="%d/%m/%Y")
# # Generate initial points for the optimisation
# parg<-par_init(data_Gratiot, parametersfixed=NULL)
# # Estimate likelihood with this initial set of parameters
# likelihood_phenology(data=data_Gratiot, parametersfit=parg, parametersfixed=NULL)
# # Or directly from a result object
# likelihood_phenology(result=result_Gratiot)
# ## End(Not run)
Run the code above in your browser using DataLab