Create mean.R