# NOT RUN {
df = data.frame(a = rnorm(20, mean = 100, sd = 20),
b = rnorm(20, mean = 100, sd = 10))
df1 = soundgen:::medianSmoother(df, smoothing_ww = 5,
smoothingThres = 1,
inviolable = c(rep(TRUE, 10), rep(FALSE, 10)))
plot(df[, 2], type='b')
lines(df1[, 2], type='b', col='blue', pch=3)
# }
Run the code above in your browser using DataLab