SVR <-
structure(list(Land = structure(c(12L, 3L, 9L, 15L, 13L, 31L, 
11L, 16L, 6L, 21L, 22L, 23L, 2L, 27L, 30L, 29L, 10L, 4L, 7L, 
8L, 19L, 20L, 14L, 26L, 28L, 32L, 34L, 25L, 33L, 35L, 17L, 5L, 
18L, 1L, 24L), .Label = c("Australia", "Austria", "Belgium", 
"Bulgaria", "Canada", "Cyprus", "CzechRepublic", "Denmark", "Estonia", 
"Finland", "France", "Germany", "Greece", "Hungary", "Ireland", 
"Italy", "Japan", "Korea", "Latvia", "Lithuania", "Luxembourg", 
"Malta", "Netherlands", "NewZealand", "Norway", "Poland", "Portugal", 
"Romania", "Slovakia", "Slovenia", "Spain", "Sweden", "Switzerland", 
"UnitedKingdom", "UnitedStates"), class = "factor"), EQ0709 = c(-0.9, 
0.4, 9.2, 7.3, 1.2, 9.7, 1.1, 1.7, 1.5, 0.9, 0.4, 0.1, 0.4, 1.7, 
1, 0.9, 1.3, -0.1, 1.4, 2.2, 11.7, 9.8, 2.6, -1.5, 0.5, 2.2, 
2.3, 0.7, 0.5, 4.7, 1.2, 2.2, 0.4, 1.2, 2.7), BIP0709 = c(-2.1, 
-0.9, -9.3, -4.3, -1.7, -1.5, -1.6, -3.4, 0.8, -3.2, 0.5, -1, 
-1.2, -1.5, -2.4, 0.3, -4.2, 0.2, -0.8, -3.3, -10.5, -6.4, -3, 
3.4, 0.1, -2.8, -3, -0.8, 0.1, -1.6, -3.3, -1.1, 1.3, 1.9, -0.1
), EQ0712 = c(-3.2, 0.1, 5.6, 10, 16, 16.7, 1.8, 4.6, 8, 0.9, 
-0.1, 1.7, -0.1, 7, 4, 2.8, 0.8, 5.4, 1.7, 3.7, 8.5, 9.6, 3.5, 
0.5, 0.6, 1.9, 2.6, 0.7, 0.5, 3.5, 0.4, 1.3, -0.2, 0.8, 3.3), 
    BIP0712 = c(0.7, 0.4, -0.8, -1.5, -4.4, -1, 0.1, -1.4, 0.2, 
    -0.3, 1.5, -0.1, 0.6, -1.1, -1.1, 1.9, -0.7, 0.7, 0.3, -0.9, 
    -2.7, -0.4, -1, 3.4, 0.4, 0.9, -0.6, 0.6, 1.2, 0.8, -0.2, 
    1, 2.9, 2.6, 1.1)), .Names = c("Land", "EQ0709", "BIP0709", 
"EQ0712", "BIP0712"), row.names = c(NA, -35L), class = "data.frame")