"baycheck" <-
structure(list(year = c(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), Nt = c(90, 
175, 40, 45, 175, 200, 425, 425, 800, 256, 713, 198, 1819, 575, 
567, 1819, 7227, 852, 216, 244, 267, 1753, 999, 1788, 143, 79, 
94)), .Names = c("year", "Nt"), 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"), class = "data.frame")