catage.taf <- data.frame(Year=1963:1970,
"1"=c(19.347, 13.052, 113.655, 126.508, 60.962, 36.915, 5.434, 107.177),
"2"=c(62.280, 28.541, 58.227, 84.327, 95.275, 106.373, 32.840, 42.403),
"3"=c( 7.028, 20.118, 17.646, 29.766, 32.689, 42.569, 31.532, 18.547),
"4"=c( 3.519, 4.285, 9.135, 6.153, 11.205, 12.330, 13.641, 13.272),
check.names=FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.