Moving (weighted) average filter plot (residual)

Plots the residual results of a moving (weighted) average filter routine.

moving_filter_plot_r(
  x,
  xlab = "X",
  ylab = "Residual data",
  filterlab = "Filter",
  plotk = "all"
)

Arguments

x	The result of using the moving_avg_filter() or moving_wt_filter() functions
xlab	The label for the x-axis
ylab	The label for the y-axis
filterlab	The label for the legend
plotk	A string for choosing what to plot (Default is "all")

Value

ggplot and plotly objects with the residual data

Examples

data(nautilus)
k = c(3, 5, 7, 9)
filt = moving_avg_filter(nautilus$x, nautilus$y, k)
moving_filter_plot_r(filt)
#> $GGPLOT
#> 
#> $PLOTLY
#> 
moving_filter_plot_r(filt, plotk = c("k_3", "k_9")) # plots residuals for filters of window 3 and 9
#> $GGPLOT
#> 
#> $PLOTLY
#>