data("CA_NS6"); d = CA_NS6
# global parameter
IsPlot = TRUE
nptperyear = 23
INPUT <- check_input(d$t, d$y, d$w, nptperyear,
maxgap = nptperyear/4, alpha = 0.02, wmin = 0.2)
# INPUT$y0 <- d$y # raw time-series, for visualization
lg_lambdas <- seq(0, 3, 0.1)
r <- v_curve(INPUT, lg_lambdas, d = 2, IsPlot = TRUE)
Run the code above in your browser using DataLab