fpath <- file.path('..', 'orig', 'LR04', 'LR04')
currwd <- getwd()
setwd(fpath)
LR04 <-read.delim("total.tab",skip=58,header=FALSE,col.names=c("Age.ka","d18O","d18Ostdev"),sep="")
setwd(currwd)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.