Update moving_average.R