if (FALSE) {
library(phenology)
# Read a file with data
data(Gratiot)
# Generate a formatted 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, fixed.parameters=NULL)
# Run the optimisation
result_Gratiot <- fit_phenology(data=data_Gratiot,
fitted.parameters=parg, fixed.parameters=NULL)
data(result_Gratiot)
# Plot the phenology and get some stats
output <- plot(result_Gratiot)
# How many times this package has been download
library(cranlogs)
phenology <- cran_downloads("phenology", from = "2012-10-06",
to = Sys.Date() - 1)
sum(phenology$count)
plot(phenology$date, phenology$count, type="l", bty="n")
}
Run the code above in your browser using DataLab