diveMove (version 0.7-4)

distSpeed: Calculate distance and speed between locations

Description

Calculate distance, time difference, and speed between pairs of points defined by latitude and longitude, given the time at which all points were measured.

Usage

distSpeed(pt1, pt2)

Arguments

pt1

A matrix or data frame with three columns; the first a POSIXct object with dates and times for all points, the second and third numeric vectors of longitude and latitude for all points, respectively, in decimal degrees.

pt2

A matrix with the same size and structure as pt1.

Value

• A matrix with three columns: distance (km), time difference (s), and speed (m/s).

Examples

locs <- readLocs(system.file(file.path("data", "sealLocs.csv"),
                             package="diveMove"), idCol=1, dateCol=2,
                 dtformat="%Y-%m-%d %H:%M:%S",
                 classCol=3, lonCol=4, latCol=5)

## Travel summary between successive standard locations
locs.std <- subset(locs, subset=class == "0" | class == "1" |
                   class == "2" | class == "3")
locs.split <- by(locs.std, locs.std$id, function(x) {
    distSpeed(x[-nrow(x), 3:5], x[-1, 3:5])
})
## Particular quantiles from travel summaries
lapply(locs.split, function(x) quantile(x[, 3], 0.99, na.rm=TRUE)) # speed
lapply(locs.split, function(x) quantile(x[, 1], 0.99, na.rm=TRUE)) # distance

## Travel summary between any two sets of points
distSpeed(locs[c(1, 5, 10), 3:5], locs[c(25, 30, 35), 3:5])