Call:
arima(x = Educational_30DCDay07, order = c(1, 0, 1), seasonal = list(order = c(1, 
    1, 1), period = 24))

Coefficients:
         ar1      ma1    sar1     sma1
      0.9083  -0.7277  0.1046  -0.8115
s.e.  0.0114   0.0166  0.0244   0.0156

sigma^2 estimated as 72639195:  log likelihood = -32277.82,  aic = 64565.65