Create promediomensual.R