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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9364  -0.7504  0.0799  -0.8625
s.e.  0.0096   0.0173  0.0232   0.0141

sigma^2 estimated as 239784378:  log likelihood = -34121.93,  aic = 68253.86