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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9267  -0.5333  0.0326  -0.8602
s.e.  0.0085   0.0180  0.0234   0.0155

sigma^2 estimated as 81414650:  log likelihood = -32458.4,  aic = 64926.8