fit <-auto.arima(y,xreg=x,seasonal=c(0,1,1)[4])
summary(fit)

seasonal=c(0,1,1)[4]

qtrs     y         x
1Q14    41.7    16963482
2Q14    26      8857757
3Q14    22.4    6308120
4Q14    17.6    4872037
1Q15    47.7    20304915
2Q15    30.7    8800350
3Q15    25.6    8065914
4Q15    17.4    8.41E+06
1Q16    59.4    39076150
2Q16    35.6    23348752
3Q16    33.5    26721456
4Q16    23.9    17934787
1Q17    81.7    65821538
2Q17    44.8    35845803
3Q17    42.1    34753415
4Q17    28.5    21449909
1Q18    90      84207978