This function is only suitable for 16-day EVI time-series.

init_lambda(y)

Arguments

y

Numeric vector

Examples

library(phenofit)
#> Error in library(phenofit): there is no package called ‘phenofit’
data("MOD13A1")
#> Warning: data set ‘MOD13A1’ not found
dt <- tidy_MOD13(MOD13A1$dt)
#> Error in tidy_MOD13(MOD13A1$dt): object 'MOD13A1' not found
st <- MOD13A1$st
#> Error in eval(expr, envir, enclos): object 'MOD13A1' not found
sitename <- dt$site[1]
#> Error in dt$site: object of type 'closure' is not subsettable
d <- dt[site == sitename, ] # get the first site data
#> Error in eval(expr, envir, enclos): object 'site' not found
lambda <- init_lambda(d$y)
#> Error in init_lambda(d$y): object 'd' not found