orig/LR04/ODP981/ODP981.R

fpath <- file.path('..', 'orig', 'LR04', 'ODP981')
currwd <- getwd()
setwd(fpath)
ODP981 <-read.delim("ODP981.txt",skip=37,header=FALSE,col.names=c("Depth.cm","Age.yrs","d18OCwuell.PDB","d13Ccibid.PDB","d13Cnpachyr.PDB","d18Ocibid.PDB","d18Onpachyr.PDB"),sep="",na.strings="-999")
setwd(currwd)
mcrucifix/pleistocene documentation built on May 22, 2019, 3:20 p.m.