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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9414  -0.6490  0.4935  -0.8890
s.e.  0.0100   0.0235  0.0381   0.0251

sigma^2 estimated as 9.8e+08:  log likelihood = -26327.29,  aic = 52664.59