"WorldPhones" <-
structure(c(45939, 60423, 64721, 68484, 71799, 76036, 79831, 21574, 29990, 
32510, 35218, 37598, 40341, 43173, 2876, 4708, 5230, 6662, 6856, 8220, 
9053, 1815, 2568, 2695, 2845, 3000, 3145, 3338, 1646, 2366, 2526, 2691, 
2868, 3054, 3224, 89, 1411, 1546, 1663, 1769, 1905, 2005, 555, 733, 773, 
836, 911, 1008, 1076), .Dim = c(7, 7), .Dimnames = list(c("1951", "1956", 
"1957", "1958", "1959", "1960", "1961"), c("N.Amer", "Europe", "Asia", 
"S.Amer", "Oceania", "Africa", "Mid.Amer")))