data(cassav)
X <- cassav$Xtest
headm(X)
Xp <- mavg(X, n = 11)
headm(Xp)
oldpar <- par(mfrow = c(1, 1))
par(mfrow = c(1, 2))
plotsp(X, main = "Signal")
plotsp(Xp, main = "Corrected signal")
abline(h = 0, lty = 2, col = "grey")
par(oldpar)
Run the code above in your browser using DataLab