x <- read.csv("hannum-model.csv",stringsAsFactors=F)
coefs <- x[,c("Marker","Coefficient")]
colnames(coefs) <- c("pred.var","coef")
write.csv(coefs, file="coefs.csv",row.names=F)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.