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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9584  -0.7851  0.1081  -0.8295
s.e.  0.0068   0.0133  0.0283   0.0207

sigma^2 estimated as 249495498:  log likelihood = -34180.22,  aic = 68370.44