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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9672  -0.7534  0.1844  -0.8603
s.e.  0.0057   0.0136  0.0245   0.0153

sigma^2 estimated as 1.87e+08:  log likelihood = -33736.42,  aic = 67482.84