This function returns the turning angles of a great circle track.
## S4 method for signature '.MoveTrackSingle' turnAngleGc(x)
On great circle tracks the bearing of arrival on a point is not the same as witch the previous point was left. This function returns the difference between these bearings between -180 and 180. The bearings are calculated using the functions
finalBearing of the geosphere package.
Angles in degrees (between -180 and 180)
moveBurst object is provided, a numeric vector two elements shorter than the number of locations is obtained.
moveStack object is provided, a list with one element per individual containing a numeric vector two elements shorter than the number of locations is obtained.
Bart Kranstauber & Anne Scharf
1 2 3 4 5 6 7 8 9 10 11 12 13
## turnAngleGc from a Move object data(leroy) head(turnAngleGc(leroy)) # to add this information to the move object, a "NA" has to be assigened # to the first and last location. leroy$turnAngleGc <- c(NA, turnAngleGc(leroy), NA) ## turnAngleGc from a MoveStack object data(fishers) str(turnAngleGc(fishers)) # to add this information to the moveStack object, a "NA" has to be assigened # to the first and last location of each individual fishers$turnAngleGc <-unlist(lapply(turnAngleGc(fishers), function(x) c(NA, x, NA)))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.