組み合わせると
f=function(x,y,n=50) mean(tail(append(x,y),n))