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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9466  -0.7270  0.3038  -0.9842
s.e.  0.0077   0.0154  0.0186   0.0093

sigma^2 estimated as 3.580e+09:  log likelihood = -40244.69,  aic = 80499.38