library(oce)
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"]])
Run the code above in your browser using DataLab