Get parameters from curve fitting result

Source: R/get_param.R

Get parameters from curve fitting result

get_param(fits)

get_param.fFITs(fFITs)

Arguments

fits

Multiple methods curve fitting results by curvefits result.
fFITs

fFITs object returned by curvefit().

Examples

library(phenofit)

#> 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)

#> [doubleLog.AG]: object '_phenofit_rcpp_wTSM' not found
#> [doubleLog.AG]: object '_phenofit_rcpp_wTSM' not found
#> [doubleLog.Beck]: object '_phenofit_rcpp_wTSM' not found
#> [doubleLog.Beck]: object '_phenofit_rcpp_wTSM' not found
#> [doubleLog.Elmore]: object '_phenofit_rcpp_wTSM' not found
#> [doubleLog.Elmore]: object '_phenofit_rcpp_wTSM' not found
#> [doubleLog.Gu]: object '_phenofit_rcpp_wTSM' not found
#> [doubleLog.Gu]: object '_phenofit_rcpp_wTSM' not found
#> [doubleLog.Zhang]: object '_phenofit_rcpp_wTSM' not found
#> [doubleLog.Zhang]: object '_phenofit_rcpp_wTSM' not found
# 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)