| "USPersonalExpenditure" <- | |
| structure(c(22.2, 10.5, 3.53, 1.04, 0.341, 44.5, 15.5, 5.76, 1.98, 0.974, | |
| 59.6, 29, 9.71, 2.45, 1.8, 73.2, 36.5, 14, 3.4, 2.6, 86.8, 46.2, 21.1, | |
| 5.4, 3.64), .Dim = c(5, 5), .Dimnames = list(c("Food and Tobacco", | |
| "Household Operation", "Medical and Health", "Personal Care", | |
| "Private Education"), c("1940", "1945", "1950", "1955", "1960"))) |