## Creata a dummy signal 'timeSeries' -
data <- matrix(rnorm(100), ncol = 2)
s <- timeSeries(data, units=c("A", "B"))
head(s)
## Filter the series -
f <- filter(s, rep(1, 3))
head(f)
## Plot and compare the first series -
plot(cbind(s[, 1], f[, 1]), plot.type="s")
Run the code above in your browser using DataLab