for文使う必要あるの?
cumsum(x)/seq(1,length(x))とかじゃ駄目なの??