Calculate Bearing

Calculates the bearing between two point geometries.

Usage

bearing_geodesic(x, y)

bearing_haversine(x, y)

Arguments

x

an object of class rs_POINT

y

an object of class rs_POINT

Value

A vector of doubles of the calculated bearing for between x and y

Examples

x <- geom_point(runif(10, 0, 90), rnorm(10, 1, 90))
y <- geom_point(runif(10, 0, 90), rnorm(10, 1, 90))
bearing_geodesic(x, y)
#>  [1]       NaN       NaN       NaN       NaN       NaN       NaN -156.0372
#>  [8]       NaN -171.1058       NaN
bearing_haversine(x, y)
#>  [1]  171.1833  -13.2571 -135.6593 -149.9801 -152.2839 -177.8303 -156.0393
#>  [8] -173.6608 -171.1432 -108.8116