summary.taf <- data.frame(Year = 1963:1965,
Rec = c(487477.785413888, 802109.170176962, 1042362.15657097),
Rec_lo = c(358326.549833717, 590709.715148342, 770072.542167909),
Rec_hi = c(663178.855661975, 1089162.92450075, 1410930.53700176),
TSB = c(511959.090775346, 661986.20742721, 834009.439815126),
TSB_lo = c(438909.271563588, 563846.87759881, 718023.803508765),
TSB_hi = c(597166.949091313, 777206.997563032, 968730.761155398),
SSB = c(151903.389141919, 163080.62672854, 199187.127288727),
SSB_lo = c(116620.458926709, 128014.651347035, 161241.738623031),
SSB_hi = c(197860.991503239, 207751.929441859, 246062.291416329),
Removals = c(117830.213660462, 144929.109231571, 199187.127288727),
Removals_lo = c(104452.740074387, 131183.974178274, 177659.131187217),
Removals_hi = c(132920.967333003, 160114.425822413, 223323.796600838),
Fbar = c(0.47280132993638, 0.515498956384257, 0.566821975922682),
Fbar_lo = c(0.40972626032925, 0.45264369873068, 0.498065342861289),
Fbar_hi = c(0.545586454258448, 0.587082455314088, 0.645070284439309))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.