as defined by Xin et al. 2015 (Rem. Sens. Env.)
AGSI(par, data)
raster or vector with estimated phenophase timing (in DOY)
The starting point of accumulation is not clearly indicated in the publication so we assume December 21.
if (FALSE) { # \dontrun{
estimate <- AGSI(data = data, par = par)
} # }