ODP677 <-local({
fpath <- file.path('..', 'orig', 'LR04', 'ODP677','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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.