# NOT RUN {
## Use the three different smoothing functions and compare the results
study <- c(
"Original" = Huber2014$Berta,
"Moving Median" = smooth_cases(Huber2014$Berta, FUN = "movingMedian"),
"Moving Mean" = smooth_cases(Huber2014$Berta, FUN = "movingMean"),
"Local Regression" = smooth_cases(Huber2014$Berta, FUN = "localRegression")
)
plot(study)
# }
Run the code above in your browser using DataLab