issues/1xx/104/104a.R

In dankelley/argoFloats: Analysis of Oceanographic Argo Floats

library(argoFloats)
bai <- getIndex(filename='merge')
s <- subset(bai, circle=list(longitude=-83, latitude=9, radius=800))
pax <- c(-92.56199, -87.32731, -83.66646, -79.35555, -88.28529, -92.76727, -92.76727, -92.73306)
pay <- c(15.204447, 12.422940,  9.071727,  5.653489,  5.720514,  5.653489, 10.546261, 15.439032)
a <- subset(s, polygon=list(longitude=pax, latitude=pay))
subo <- subset(a, parameter='DOXY')
profiles <- getProfiles(subo)
argos0 <- readProfiles(profiles)
argos1 <- readProfiles(profiles, handleFlags=TRUE)
argos2 <- readProfiles(profiles, handleFlags=FALSE)