R/CalcBearing.R

Defines functions CalcBearing

Documented in CalcBearing

CalcBearing <-
function(initialLat,initialLong,finalLat,finalLong)
{
	initialLat<-initialLat/360*2*pi
	initialLong<-initialLong/360*2*pi
	finalLat<-finalLat/360*2*pi
	finalLong<-finalLong/360*2*pi
	atan2(sin(finalLong-initialLong)*cos(finalLat),cos(initialLat)*sin(finalLat)-sin(initialLat)*cos(finalLat)*cos(finalLong-initialLong))
}

Try the TrackReconstruction package in your browser

Any scripts or data that you put into this service are public.

TrackReconstruction documentation built on Dec. 11, 2021, 10:07 a.m.