how to smooth a curve in R using a weighted moving average? the weights are already predefined

p.est <- sapply(a,tPower) # this may take a moment

plot(a, p.est, type="b", ylab="Power")