您可以创建以下函数,以3(或其他任何数字)为一组来计算均值:
f <- function(x, k=3)
{
for(i in seq(k,length(x),k))
x[(i/k)] <- mean(x[(i-k+1):i])
return(x[1:(length(x)/k)])
}
f(1:15)[1] 2 5 8 11 14
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句