# NOT RUN {
tagData <- Marlintag38606
xpos <- tagData$lon[1:20]
ypos <- tagData$lat[1:20]
tpos <- tagData$date[1:20]
tpos <- tagData$date[1:20]
zpos <- rep(0., length(xpos))
# }
# NOT RUN {
swchlInfo <- rerddap::info('erdSWchla8day')
swchl <- rxtracto(swchlInfo, parameter = 'chlorophyll', xcoord = xpos,
ycoord = ypos, tcoord = tpos, zcoord = zpos, xlen = .2, ylen = .2)
# }
# NOT RUN {
p <- plotTrack(swchl, xpos, ypos, tpos, plotColor = 'chlorophyll')
# }
Run the code above in your browser using DataLab