это временной ряд с почасовыми данными интеллектуального счетчика и частотой = 24. Измеряется за три дня, поэтомуfirst day[1:24], second[25:48], third[49:72].

Я хочу иметь среднее значение для каждого часа в течение трех дней. Например:

(t[1]+t[25]+t[49])/3

так что я могу сделать коробочный за 24 часа в течение 3 дней.

x <- c(0.253, 0.132, 0.144, 0.272, 0.192, 0.132, 0.209, 0.255, 0.131, 
  0.136, 0.267, 0.166, 0.139, 0.238, 0.236, 1.75, 0.32, 0.687, 
  0.528, 1.198, 1.961, 1.171, 0.498, 1.28, 2.267, 2.605, 2.776, 
  4.359, 3.062, 2.264, 1.212, 1.809, 2.536, 2.48, 0.531, 0.515, 
  0.61, 0.867, 0.804, 2.282, 3.016, 0.998, 2.332, 0.612, 0.785, 
  1.292, 2.057, 0.396, 0.455, 0.283, 0.131, 0.147, 0.272, 0.198, 
  0.13, 0.19, 0.257, 0.149, 0.134, 0.251, 0.215, 0.133, 1.755, 
  1.855, 1.938, 1.471, 0.528, 0.842, 0.223, 0.256, 0.239, 0.113)