fpath <- file.path('..', 'orig', 'LR04', 'ODP982a')
currwd <- getwd()
setwd(fpath)
ODP982a <-read.delim("ODP982a.txt",skip=1,header=FALSE,col.names=c("Hole","Core","Sect","Interv","MCD","Age.ka","Cib18O","Cib13C","Bull18O","Bull13C","CaCO3.pc","IRD.pc"),sep="")
setwd(currwd)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.