x <- read.csv("13059_2016_1068_MOESM3_ESM.csv", stringsAsFactors=F)
coefs <- x[,c("CpGmarker","CoefficientTraining")]
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.