library(argoFloats)
file <- "SD5903586_001.nc"
raw <- readProfiles(system.file("extdata", file, package = "argoFloats"))
adj <- useAdjusted(raw)
# Autoscale with adjusted values so frame shows both raw and adjusted.
plot(adj, which = "profile", profileControl = list(parameter = "oxygen"), pch = 2)
points(raw[[1]][["oxygen"]], raw[[1]][["pressure"]], pch = 1)
legend("bottomright", pch = c(2, 1), legend = c("Raw", "Adjusted"))
Run the code above in your browser using DataLab