data<-ts(c(4.7,3.5,3.2,3.5,4.7,3.1,3.1,3.2,4.0,3.4,3.3,3.7,4.9,
      3.6,3.6,3.8,4.8,4.2,3.9,4.3,5.8,5.4,5.3,5.4,5.7,5.7,5.6,5.6,6.0,
      5.2,4.9,4.9,5.2,5.0,4.9,4.4,4.5,3.7,4.0,4.3,5.0,5.3,5.7,5.3,
      5.2,4.9,4.8,4.4,5.1,4.4,4.0,4.8,4.7,4.8,5.1,4.9,5.7,5.0,5.3,
      5.4,6.0,5.4,5.6,5.6,5.8,5.8,5.6,5.7,6.3,6.1,6.1,5.6,6.0,5.4), start=c(1999,1), end=c(2017,2), frequency=4)