shake <- data.frame(
base=c(0.96, 0.72, 0.82, 0.80, 0.67, 0.74, 0.63, 0.57),
"-1"=c(0.95, 0.71, 0.79, 0.75, 0.62, 0.66, 0.52, NA),
"-2"=c(0.94, 0.70, 0.78, 0.73, 0.61, 0.63, NA, NA),
"-3"=c(0.92, 0.67, 0.73, 0.66, 0.51, NA, NA, NA),
"-4"=c(0.89, 0.63, 0.67, 0.54, NA, NA, NA, NA),
"-5"=c(0.86, 0.59, 0.60, NA, NA, NA, NA, NA),
row.names=2009:2016, check.names=FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.