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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9284  -0.7308  0.2381  -0.9760
s.e.  0.0117   0.0205  0.0220   0.0105

sigma^2 estimated as 373275464:  log likelihood = -27200.8,  aic = 54411.59