path: root/R/ema.R

 ema <- function(x, beta = 0.1, init=x[1]){
	filter(beta*x, filter = 1-beta, method = "recursive", init = init)
}