"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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.