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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9737  -0.7852  0.4173  -0.9658
s.e.  0.0050   0.0120  0.0186   0.0067

sigma^2 estimated as 350677122:  log likelihood = -34715.28,  aic = 69440.57