"penny" <-
structure(list(year = c(45, 45, 46, 46, 47, 47, 48, 48, 49, 49, 
50, 50, 51, 51, 52, 52, 53, 53, 54, 54, 55, 55, 56, 56, 57, 57, 
58, 58, 59, 59, 60, 60, 61, 61, 62, 62, 63, 63, 64, 64, 65, 65, 
66, 66, 67, 67, 68, 68, 69, 69, 70, 70, 71, 71, 72, 72, 73, 73, 
74, 74, 75, 75, 76, 76, 77, 77, 78, 78, 79, 79, 80, 80, 81, 81, 
82, 82, 83, 83, 84, 84, 85, 85, 86, 86, 87, 87, 88, 88, 89, 89
), mils = c(51.8, 54.6, 53.2, 54.2, 53, 53, 53.6, 52.2, 53.2, 
51.6, 53.4, 51, 53.4, 54, 53.4, 54.6, 50.6, 54.8, 52.2, 54.6, 
52.6, 54.2, 54, 53.6, 53.6, 55, 53.2, 53.2, 56.8, 57.2, 57, 55.2, 
56.6, 57, 54.6, 56, 58, 56.2, 55, 56, 56.6, 58.2, 57.2, 56, 57.6, 
55.8, 57.2, 56, 58, 56, 57.2, 55.6, 58, 55.8, 57, 57, 59, 57.6, 
59, 54, 54, 54.2, 53.2, 53.2, 54, 53.2, 53, 53.6, 54, 53, 53.6, 
53, 54.8, 54, 54.4, 54.6, 52.8, 52.6, 55.2, 54, 55.6, 56, 55, 
53.2, 55, 54, 54, 55.6, 56.2, 54)), .Names = c("year", "mils"
), row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", 
"10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", 
"21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", 
"32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", 
"43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", 
"54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", 
"65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", 
"76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", 
"87", "88", "89", "90"), class = "data.frame")