R中有没有像pd.ewma这样的函数？

Question

我在TTR包中尝试了TTR :: EMA和TTR :: WMA或其他MA功能，我也尝试了qcc :: ewma和qcc :: ewmaSmooth，但是没有一个能用NA处理数据。 我知道Python pandas包有函数pd.ewma。 我可能不太了解R ......可以在R中知道这样的功能吗？

例如，在python中：

a=pd.Series([1,4, np.nan, np.nan,1])
pd.ewma(a, span=2/0.01-1)

Out[137]: 
0    1.000000
1    2.507538
2    2.507538
3    2.507538
4    1.993177
dtype: float64

感谢