This function calculates the heading of each segment between consecutive locations of a track.
1 2 3 4
The headings are calculated using the functions
bearing of the geosphere package.
Angles in degrees (between -180 and 180).
move object is provided, a numeric vector one element shorter than the number of locations is obtained.
moveStack object is provided, a list with one element per individual containing a numeric vector one element shorter than the number of locations is obtained.
Marco Smolla & Anne Scharf
1 2 3 4 5 6 7 8 9 10 11 12 13
## angles from a Move object data(leroy) head(angle(leroy)) # to add this information to the move object, a "NA" has to be assigened # e.g. to the last location (it also could be assigend to the first location). leroy$angles <- c(angle(leroy), NA) ## angles from a MoveStack object data(fishers) str(angle(fishers)) # to add this information to the moveStack object, a "NA" has to be assigened # e.g. to the last location of each individual fishers$angles <- unlist(lapply(angle(fishers), c, NA))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.