Europa <-
structure(list(Country = structure(c(2L, 3L, 5L, 6L, 10L, 7L, 
13L, 11L, 25L, 9L, 14L, 4L, 15L, 16L, 17L, 12L, 18L, 19L, 1L, 
20L, 21L, 22L, 24L, 23L, 8L, 26L, 27L), .Label = c("Austria", 
"Belgium", "Bulgaria", "Cyprus", "CzechRep", "Denmark", "Estonia", 
"Finland", "France", "Germany", "Greece", "Hungary", "Ireland", 
"Italy", "Latvia", "Lithuania", "Luxembourg", "Malta", "Netherlands", 
"Poland", "Portugal", "Romania", "Slovakia", "Slovenia", "Spain", 
"Sweden", "UnitedKingdom"), class = "factor"), CPI = c(116.03, 
141.2, 116.2, 114.2, 111.6, 135.08, 106.8, 122.83, 116.97, 111.55, 
115, 116.44, 144.47, 135.08, 118.19, 134.66, 117.65, 111.17, 
114.1, 119.9, 113.06, 142.34, 118.33, 117.17, 114.6, 112.71, 
120.9), UNE = c(4.77, 7.31, 4.88, 6.03, 4.63, 9.71, 10.2, 11.3, 
15.79, 6.77, 5.05, 5.14, 12.11, 11.47, 3.14, 6.77, 4.15, 3.23, 
2.99, 6.28, 9.68, 4.76, 5.56, 9.19, 5.92, 6.1, 6.11), INP = c(125.59, 
102.39, 119.01, 88.2, 111.3, 111.5, 111.2, 78.22, 83.44, 92.6, 
87.8, 86.91, 110.39, 114.5, 85.51, 115.1, 101.65, 103.8, 116.8, 
146.7, 89.3, 131.8, 105.4, 156.3, 101, 100.5, 90.36), BOP = c(908.6, 
27.8, -277.9, 1156.4, 499.4, 153.4, -166.5, -764.1, -280.8, -337.1, 
-366.2, -1090.6, 42.3, -77.4, 2016.5, 156.2, 359.4, 1156.6, 87.8, 
-74.8, -613.4, -128.7, 39.4, 16, -503.7, 1079.1, -24.3), PRC = c(6716.5, 
1094.7, 2616.4, 7992.4, 6774.6, 2194.1, 6525.1, 5620.1, 4955.8, 
6828.5, 5996.6, 5310.3, 1968.3, 2130.6, 10051.6, 1954.8, 3378.3, 
6046, 7045.5, 2124.2, 4073.6, 1302.2, 3528.3, 2515.3, 7198.8, 
7476.7, 6843.9), UN = c(-1.6, 3.5, -0.6, 0.5, -1.3, -7.7, 2, 
6.4, 0.7, -0.9, -0.5, -0.4, -3.6, -4.3, -3, -0.1, -0.6, -0.4, 
-1.5, -1, 0.8, 3.2, 1.8, -2.1, -1.3, -2.3, -0.8)), .Names = c("Country", 
"CPI", "UNE", "INP", "BOP", "PRC", "UN"), class = "data.frame", row.names = c(NA, 
-27L))