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

Coefficients:
        ar1      ma1     sar1     sma1
      0.963  -0.8047  -0.3108  -0.5025
s.e.  0.007   0.0152   0.0268   0.0270

sigma^2 estimated as 142960329:  log likelihood = -33318.38,  aic = 66646.76