Plot INPUT returned by check_input

Plot INPUT returned by check_input

plot_input(INPUT, wmin = 0.2, show.y0 = TRUE, ylab = "VI", ...)

Arguments

INPUT	A list object with the elements of t, y, w, Tn (optional) and ylu, returned by check_input().
wmin	Double, minimum weigth (i.e. weight of snow, ice and cloud).
show.y0	boolean. Whether to show original time-series y0 or processed time-series y by check_input()?
ylab	y axis title
...	other parameter will be ignored.

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
sp    <- st[site == sitename, ] # station point
#> Error in eval(expr, envir, enclos): object 'st' not found
# global parameter
IsPlot = TRUE
nptperyear = 23
ypeak_min  = 0.05

dnew     <- add_HeadTail(d, nptperyear = nptperyear) # add one year in head and tail
#> Error in is.data.frame(x): object 'd' not found
INPUT    <- check_input(dnew$t, dnew$y, dnew$w, d$QC_flag, nptperyear,
                        maxgap = nptperyear/4, alpha = 0.02, wmin = 0.2)
#> Error in check_input(dnew$t, dnew$y, dnew$w, d$QC_flag, nptperyear, maxgap = nptperyear/4,     alpha = 0.02, wmin = 0.2): object 'dnew' not found
plot_input(INPUT)
#> Error in plot_input(INPUT): object 'INPUT' not found