# all year as a whole
brks <- season(INPUT,
rFUN = smooth_wWHIT, wFUN = wFUN,
lambda = 10,
plotdat = d, IsPlot = IsPlot, IsPlot.OnlyBad = FALSE)
# curve fitting by year
brks2 <- season_mov(INPUT,
rFUN = smooth_wWHIT, wFUN = wFUN,
lambda = 10,
plotdat = d, IsPlot = IsPlot, IsPlot.OnlyBad = FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.