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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9425  -0.7477  0.2839  -0.8425
s.e.  0.0088   0.0163  0.0493   0.0405

sigma^2 estimated as 255880873:  log likelihood = -33783.83,  aic = 67577.67