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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9250  -0.6897  0.0356  -0.6127
s.e.  0.0092   0.0153  0.0392   0.0345

sigma^2 estimated as 529490657:  log likelihood = -35333.21,  aic = 70676.41