orig/LR04/ODP677/ODP677.R

In mcrucifix/pleistocene: Datasets of glacial cycles (ice and ocean)

fpath <- file.path('..', 'orig', 'LR04', 'ODP677')
currwd <- getwd()
setwd(fpath)
ODP677 <-local({
  fpath <- file.path('..', 'orig', 'ODP', 'odp-677-fwc.txt')
  ODP677 <<- read.fwf(fpath, c(14,14,14,14,8),skip=33,header=TRUE,na="-999          ",flush=TRUE)

  attr(ODP677,"benthics") <<- c( "CIB     ","CIBKULL ","CIBMELAT","GLOBCASB","GLOBOBUL","GLOBOCAS","GLOBOGYR","GLOBORID","GLOBORIG","GYRGLOB ","GYROID  ","HELEGANS","LATIC   ","ORIBULGL","ORID    ","ORIDBUL ","ORIDBULL","ORIDGLOB","ORIDGYR ","ORIDMIX ","ORIDSBUL","ORIDUVIG","ORIGLOBU","ORIGYRGL","ORIGYRPY","ORIGYRST","PWUELCIB","PWUELCIL","PWUELL  ","PWUELLAT","PWUELMEL","PYRGGLOB","PYRGO   ","SBULGBUL","SBULL   ","SBULLGBU","SBULLGLO","SBULPYRG","STYLOS  " )
  attr(ODP677,"uvig") <<-c (
"UVIBULOR","UVIG    ","UVIGBUL ","UVIGBULL","UVIGGLOB","UVIGLOB ","UVIGLOBO","UVIGLORI","UVIGORBU","UVIGORGL","UVIGORID","UVIGORIG","UVIGPYRG","UVIGSBUL","UVIORBUL","UVIORGLO","UVIPORID")
  attr(ODP677,"gruber") <<- c("GRUBER C","GRUBER B")
  })

ODP677 <- ODP677

setwd(currwd)