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

Coefficients:
         ar1      ma1    sar1     sma1
      0.8948  -0.6245  0.1088  -0.9245
s.e.  0.0131   0.0228  0.0220   0.0125

sigma^2 estimated as 725631069:  log likelihood = -35834.42,  aic = 71678.84