library(phenofit)
data("CA_NS6"); d = CA_NS6
# global parameter
IsPlot = TRUE
nptperyear = 23
ypeak_min = 0.05
INPUT <- check_input(d$t, d$y, d$w, d$QC_flag, nptperyear,
maxgap = nptperyear/4, alpha = 0.02, wmin = 0.2)
plot_input(INPUT)
Run the code above in your browser using DataLab