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/RtmpMVjKWh/temp_libpath54107b4abcb3/oce/extdata/ctd_aml.csv"
#> * Location:            70.228N 145.85W
#> * Time ranges from 2021-07-25 18:22:28 to 2021-07-25 18:22:30 with 50 samples and mean increment 0.04020408 s
#> * Data Overview
#> 
#>                                Min.   Mean   Max. Dim. NAs         OriginalName
#>     scan                          1   25.5     50   50   0                    -
#>     salinity [PSS-78]        5.5779 26.323 28.503   50   0                    -
#>     temperature [°C, ITS-90]  3.414 4.8729  5.671   50   0      Temperature (C)
#>     pressure [dbar]            0.22 0.8592   1.69   50   0                    -
#>     conductivity [mS/cm]      6.281 25.687 27.139   50   0 Conductivity (mS/cm)
#>     Date                         NA     NA     NA   50   0                 Date
#>     Time                         NA     NA     NA   50   0                 Time
#>     battery [V]                7.93   7.93   7.93   50   0          Battery (V)
#> 
#> * Processing Log
#> 
#>     - 2022-08-18 15:44:31 UTC: `create 'ctd' object`
#>     - 2022-08-18 15:44:31 UTC: `as.ctd(salinity = S, temperature = data$temperature, pressure = data$pressure,     conductivity = data$conductivity, serialNumber = serialNumber,     longitude = longitude, latitude = latitude, debug = debug -         1L)`
#>     - 2022-08-18 15:44:31 UTC: `read.ctd.aml(file = system.file("extdata", "ctd_aml.csv", package = "oce"))`
plot(ctd)