需要一些功能的幫助R

Question

問題是：創建一個函數，它接受一個數字向量。輸出應該是具有運行平均值的矢量。輸出向量的第i個元素應該是從1到i的輸入向量中值的平均值。

我的主要問題是在for循環，這是如下：

x1 <- c(2,4,6,8,10) 
    for (i in 2: length(x1)){ 
     ma <- sum(x1[i-1] , x1[i])/i 
     print(ma) 
     mresult <- rbind(ma) 
    } 
    View(ma) 

我知道一定有什麼不對的。但我只是不確定它是什麼。

Answer 1

正如你已經注意到，有更有效的方法使用已有的函數和包來實現你正在嘗試做的事情。但這裏是你將如何去修復你的循環

x1 <- c(2,4,6,8,10) 
mresult = numeric(0) #Initiate mresult. Or maybe you'd want to initiate with 0 
for (i in 2: length(x1)){ 
    ma <- sum(x1[1:i])/i #You were originally dividing the sum of (i-1)th and ith value by i 
    print(ma) #This is optional 
    mresult <- c(mresult,ma) #Since you have only an array, there is no need to rbind 
} 
View(ma) #The last computed average 
View(mresult) #All averages