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