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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9499  -0.7515  0.6309  -0.9992
s.e.  0.0174   0.0321  0.0381   0.1281

sigma^2 estimated as 217633976:  log likelihood = -6148.01,  aic = 12306.02