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

Coefficients:
         ar1      ma1    sar1     sma1
      0.9624  -0.7115  0.4302  -1.0000
s.e.  0.0059   0.0131  0.0171   0.0071

sigma^2 estimated as 692830564:  log likelihood = -35789.83,  aic = 71589.66