"birthrates" <-
structure(c(1917, 1918, 1919, 1920, 1921, 1922, 1923, 1924, 1925, 
1926, 1927, 1928, 1929, 1930, 1931, 1932, 1933, 1934, 1935, 1936, 
1937, 1938, 1939, 1940, 1941, 1942, 1943, 1944, 1945, 1946, 1947, 
1948, 1949, 1950, 1951, 1952, 1953, 1954, 1955, 1956, 1957, 1958, 
1959, 1960, 1961, 1962, 1963, 1964, 1965, 1966, 1967, 1968, 1969, 
1970, 1971, 1972, 1973, 1974, 1975, 1976, 1977, 1978, 1979, 1980, 
1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 
1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 
2003, 183.1, 183.9, 163.1, 179.5, 181.4, 173.4, 167.6, 177.4, 
171.7, 170.1, 163.7, 151.9, 145.4, 145, 138.9, 131.5, 125.7, 
129.5, 129.6, 129.5, 132.2, 134.1, 132.1, 137.4, 148.1, 174.1, 
174.7, 156.7, 143.3, 189.7, 212, 200.4, 201.8, 200.7, 215.6, 
222.5, 231.5, 237.9, 244, 259.4, 268.8, 264.3, 264.5, 268.1, 
264, 252.8, 240, 229.1, 204.8, 193.3, 179, 178.1, 181.1, 165.6, 
159.8, 136.1, 126.3, 123.3, 118.5, 110.3, 112.9, 109.9, 112.8, 
115.1, 112.2, 111.6, 107.8, 106.8, 108.3, 107.4, 107.9, 110.2, 
113.8, 116.5, 115.3, 113.7, 111.3, 109.2, 107.5, 107.8, 107.3, 
108.4, 107.9, 109.7, 106.2, 103.6, 102.6), .Dim = as.integer(c(87, 
2)), .Dimnames = list(c("1917", "1918", "1919", "1920", "1921", 
"1922", "1923", "1924", "1925", "1926", "1927", "1928", "1929", 
"1930", "1931", "1932", "1933", "1934", "1935", "1936", "1937", 
"1938", "1939", "1940", "1941", "1942", "1943", "1944", "1945", 
"1946", "1947", "1948", "1949", "1950", "1951", "1952", "1953", 
"1954", "1955", "1956", "1957", "1958", "1959", "1960", "1961", 
"1962", "1963", "1964", "1965", "1966", "1967", "1968", "1969", 
"1970", "1971", "1972", "1973", "1974", "1975", "1976", "1977", 
"1978", "1979", "1980", "1981", "1982", "1983", "1984", "1985", 
"1986", "1987", "1988", "1989", "1990", "1991", "1992", "1993", 
"1994", "1995", "1996", "1997", "1998", "1999", "2000", "2001", 
"2002", "2003"), c("Year", "Birthrate")))