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