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

Coefficients:
         ar1      ma1    sar1    sma1
      0.9655  -0.8241  0.3119  -0.971
s.e.  0.0070   0.0149  0.0188   0.007

sigma^2 estimated as 520475843:  log likelihood = -35328.29,  aic = 70666.58