Question

R语言，求数组的k项平均

例如有数组x = c(1, 3, 8, 4)，求3项平均，需要结果为（1，2，4，5），前面数据不够3项时就求前面几项的平均，够3项以后就依次往后移1 = 1/1 2 = (1+3)/2 4 = (1+3+8)/3 5 = (3+8+4)/3

Answer 1

sma<-function(x,n){ #x是数组，求n项平均
    sapply(1:length(x),function(i){
        if(i>=n) mean(x[(i-n+1):i])
        else mean(x[1:i])
    })
}

用的时候就直接

sma(x,3)

就行了