Makro <-
structure(list(Jahr = 1995:2012, Wn = c(3.7, 1.4, 2, 2.5, 2.1, 
2.4, 2.7, 1.4, 0.7, 2.2, 1.3, 4, 5, 1.9, -4, 5.1, 4.6, 2.2), 
    Wr = c(1.7, 0.8, 1.7, 1.9, 1.9, 3.1, 1.5, 0, -0.4, 1.2, 0.7, 
    3.7, 3.3, 1.1, -5.1, 4, 3.3, 0.7), Inflation = c(1.8, 1.4, 
    2, 1, 0.6, 1.4, 2, 1.4, 1.1, 1.6, 1.6, 1.5, 2.3, 2.6, 0.3, 
    1.1, 2.1, 2)), .Names = c("Jahr", "Wn", "Wr", "Inflation"
), row.names = c(NA, -18L), class = "data.frame")