powered by
thectd <- as.CTD( S, T, p, header=NULL, filename=NA, ship=NA, scientist=NA, institute=NA, address=NA, cruise=NA, mooring=NA, date=NA, start.time=NA, start.time.list=NA, latitude=NA, latitude.dec=NA, longitude=NA, longitude.dec=NA, recovery=NA, water.depth=NA, sample.interval=NA)
ctd
read.ctd
library(oce) p <- seq(0,100,1) T <- 10 - p / 100 S <- 35 - p / 100 ctd <- as.CTD(S, T, p) summary(ctd)
Run the code above in your browser using DataLab