steuer <-
structure(c(73987L, 77810L, 87104L, 99533L, 89668L, 89445L, 92602L, 
102416L, 89929L, 91186L, 94193L, 107711L, 97943L, 94656L, 97041L, 
112318L, 99694L, 96162L, 102461L, 118132L, 97973L, 96608L, 98816L, 
115297L, 95652L, 95821L, 98564L, 117647L, 96256L, 101792L, 104682L, 
123466L, 100031L, 109926L, 112263L, 130439L, 104899L, 118427L, 
113949L, 129985L, 105129L, 110919L, 109522L, 121263L, 98552L, 
105050L, 109359L, 129008L, 96306L, 108916L, 109630L, 127464L, 
96884L, 112891L, 107796L, 125628L, 99181L, 112524L, 110562L, 
129665L, 106332L, 121844L, 121819L, 138674L, 122310L, 136888L, 
131583L, 147566L, 130784L, 143473L, 137189L, 149348L), .Dim = c(72L, 
1L), .Dimnames = list(NULL, "V1"), .Tsp = c(1991, 2008.75, 4), class = "ts")