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

Coefficients:
         ar1      ma1    sar1    sma1
      0.9385  -0.7555  0.4143  -0.999
s.e.  0.0093   0.0167  0.0171     NaN

sigma^2 estimated as 22730775:  log likelihood = -30523.06,  aic = 61056.11