Butterworth filter overshoot

[This article was first published on Dan Kelley Blog/R, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Introduction

Butterworth filters with order other than 1 have an overshoot phenomenon that can be problematic in some cases. For example, if smoothing is used on an estimate of kinetic energy, overshoots might yield negative values that are nonphysical. This post simply illustrates this with made-up data that the reader can experiment with.

Methods

First, create and plot some fake data, a top-hat function. (Note the use of par to tighten the margins.)

1
2
3
4
5
6
library(signal)
n <- 100
x <- 1:n
y <- ifelse(0.3*n < x & x < 0.7*n, 1, 0)
par(mar=c(3, 3, 1, 1), mgp=c(2, 0.7, 0))
plot(x, y, type='o', pch=20, ylim=c(-0.1, 1.1))

Next, decide on the cutoff frequency for a low-pass filter. Setting W to 0.1 means a cutoff at 1/10-th of the Nyquist frequency.

1
W <- 0.1

Finally, filter with orders 1, 2 and 3, and add coloured lines indicating the results

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
b1 <- butter(1, W)
y1 <- filtfilt(b1, y)
points(x, y1, type='o', pch=20, col='red')

b2 <- butter(2, W)
y2 <- filtfilt(b2, y)
points(x, y2, type='o', pch=20, col='blue')

b3 <- butter(3, W)
y3 <- filtfilt(b3, y)
points(x, y3, type='o', pch=20, col='forestgreen')

legend("topright", lwd=2, pch=20, 
        col=c("black", "red", "blue", "forestgreen"),
        legend=c("Signal", "Order 1", "Order 2", "Order 3"))

Results

graph

Conclusions

Be careful in using butterworth filters of order 2 and higher, at least in applications that are sensitive to overshoot (e.g. kinetic-energy timeseries).

To leave a comment for the author, please follow the link and comment on their blog: Dan Kelley Blog/R.

R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)