使用r中的循环创建移动平均线

以下是我当前的代码：

n<-30
alpha<- 2/(1+n)
alpha
length(stocks$Close)
thirty <- colMeans(matrix(stocks$Close [1:30]))
x<-rep(0, length=6656)
for (i in 30:length(x)){
    x[i]<- ((alpha*thirty) + (Close[i-1]*(1-alpha)))
}

---

n你要找的是：
您需要以P[i]的形式访问当前价格，因此30日、31日等

   for (i in 30:length(x)){
        x[i]<- ((alpha*P[i]) + (x[i-1]*(1-alpha)))
    }

要使其完整
您需要的是：
您需要以P[i]的形式访问当前价格，因此30日、31日等

   for (i in 30:length(x)){
        x[i]<- ((alpha*P[i]) + (x[i-1]*(1-alpha)))
    }

完成