r - 从 XTS 对象中删除条目并更新指数移动平均线的以下评估

Question

我有一个 xts，我计算 EMA。我想将 i 值与之前的 EMA 进行比较，如果高于阈值，则删除该点并随后更新 EMA 评估。

就像是：

dat<-as.xts(data)
dat_EMA<-EMA(abs(dat),n=10)
dat_EMA<-lag(dat_EMA,k=-1) 

然后，如果dat > 100*dat_EMA，则从该点移除dat并重新计算 EMA 的以下部分。

有什么有效的程序吗？