library(oce)
## Not run:
# ctd <- read.oce("data.txt")
# ## mooring data are not profiles, so show timeseries
# par(mfrow=c(3,1))
# oce.plot.ts(ctd[["time"]], ctd[["pressure"]])
# oce.plot.ts(ctd[["time"]], ctd[["salinity"]])
# oce.plot.ts(ctd[["time"]], ctd[["temperature"]])
# ## End(Not run)
Run the code above in your browser using DataLab