Get yearly vegetation phenological metrics of a curve fitting method
get_pheno( fits, method, TRS = c(0.2, 0.5, 0.6), analytical = TRUE, smoothed.spline = FALSE, IsPlot = FALSE, show_title = TRUE, ... ) get_pheno.fFITs( fFITs, method, TRS = c(0.2, 0.5), analytical = TRUE, smoothed.spline = FALSE, IsPlot = FALSE, title_left = "", showName_pheno = TRUE )
fits | A list of |
---|---|
method | Which fine curve fitting method to be extracted? |
TRS | Threshold for |
analytical | If true, |
smoothed.spline | Whether apply |
IsPlot | Boolean. Whether to plot figure? |
show_title | Whether to show the name of fine curve fitting method in top title? |
... | ignored. |
fFITs |
|
title_left | String of growing season flag. |
showName_pheno | Whether to show phenological methods names in the top panel? |
List of every year phenology metrics
Please note that only a single fine curve fitting method allowed here!
#> Error in library(phenofit): there is no package called ‘phenofit’# simulate vegetation time-series fFUN = doubleLog.Beck par = c( mn = 0.1, mx = 0.7, sos = 50, rsp = 0.1, eos = 250, rau = 0.1) t <- seq(1, 365, 8) tout <- seq(1, 365, 1) y <- fFUN(par, t) methods <- c("AG", "Beck", "Elmore", "Gu", "Zhang") # "Klos" too slow fFITs <- curvefit(y, t, tout, methods)#>#>#>#>#>#>#>#>#>#># multiple years fits <- list(`2001` = fFITs, `2002` = fFITs) l_param <- get_param(fits) d_GOF <- get_GOF(fits) d_fitting <- get_fitting(fits) l_pheno <- get_pheno(fits, "AG", IsPlot=TRUE)