library(phenology)
# Read all the files from a folder/directory
# Gratiot<-read_folder(".")
data(Gratiot)
# Generate a formatted list nammed data_Gratiot
data_Gratiot<-add_format(add=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)
# 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_phenology(result=result_Gratiot, pdf=FALSE)
Run the code above in your browser using DataLab