R/mts_getDistance.R
mts_getDistance.RdThis function uses the [geodist] package to return the distances (meters)
between mts locations
and a location of interest. These distances can be used to create a
mask identifying monitors within a certain radius of the location of interest.
mts_getDistance(
mts = NULL,
longitude = NULL,
latitude = NULL,
measure = c("geodesic", "haversine", "vincenty", "cheap")
)mts object.
Longitude of the location of interest.
Latitude of the location of interest.
One of "geodesic", "haversine", "vincenty" or "cheap"
Vector of of distances (meters) named by deviceDeploymentID.
The measure "cheap" may be used to speed things up depending on
the spatial scale being considered. Distances calculated with
measure = "cheap" will vary by a few meters compared with those
calculated using measure = "geodesic".
library(MazamaTimeSeries)
# Garfield Medical Center in LA
longitude <- -118.12321
latitude <- 34.06775
distances <- mts_getDistance(
mts = example_mts,
longitude = longitude,
latitude = latitude
)
# Which sensors are within 1000 meters of Garfield Med Ctr?
distances[distances <= 1000]
#> ec61b544c1dbfe21_2448 2ee691d37eaa1aff_3529 ecd1d2c35c1c18cf_3505
#> 761.2503 844.0852 743.9420
#> 05533d5b998ac7bf_3525 8c345724ee28a6ef_23253
#> 765.9372 950.1779