This file may be read with read.ctd.aml(). It is based on a file donated by Ashley Stanek, which was shortened to just 50 points for inclusion in oce, and which had some identifying information (serial number, IP address, and WEP code) zeroed-out.

Examples

ctd <- read.ctd.aml(system.file("extdata", "ctd_aml.csv", package="oce"))
summary(ctd)
#> CTD Summary
#> -----------
#> 
#> * File:                "/private/var/folders/8b/l4h64m1j22v5pb7vj049ff140000gn/T/Rtmp0xs5P1/temp_libpathcbac25e016bc/oce/extdata/ctd_aml.csv"
#> * Mean Location:       70.228N 145.85W
#> * Time:          2021-07-25 18:22:28 to 2021-07-25 18:22:30 (50 samples, mean increment 0.04020408 s)
#> * Data Overview
#> 
#>                                             Min.                Mean                Max. Dim. NAs         OriginalName
#>     scan                                       1                25.5                  50    0   0                    -
#>     salinity [PSS-78]                     5.5779              26.323              28.503    0   0                    -
#>     temperature [°C, ITS-90]               3.414              4.8729               5.671    0   0      Temperature (C)
#>     pressure [dbar]                         0.22              0.8592                1.69    0   0                    -
#>     conductivity [mS/cm]                   6.281              25.687              27.139    0   0 Conductivity (mS/cm)
#>     time                     2021-07-25 18:22:28 2021-07-25 18:22:29 2021-07-25 18:22:30    0   0                    -
#>     Date                                      NA                  NA                  NA    0   0                 Date
#>     Time                                      NA                  NA                  NA    0   0                 Time
#>     battery [V]                             7.93                7.93                7.93    0   0          Battery (V)
#> 
#> * Processing Log
#> 
#>     - 2023-03-27 19:26:51 UTC: `create 'ctd' object`
#>     - 2023-03-27 19:26:51 UTC: `as.ctd(salinity = S, temperature = data$temperature, pressure = data$pressure,     conductivity = data$conductivity, serialNumber = serialNumber,     longitude = longitude, latitude = latitude, debug = debug -         1L)`
#>     - 2023-03-27 19:26:51 UTC: `read.ctd.aml(file = system.file("extdata", "ctd_aml.csv", package = "oce"))`
plot(ctd)