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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9488  -0.8533  0.1088  -0.9823
s.e.  0.0116   0.0183  0.0210   0.0116

sigma^2 estimated as 123451477:  log likelihood = -27968.72,  aic = 55947.44