Nothing
setGeneric("turnAngleGc", function(x){standardGeneric("turnAngleGc")})
setMethod("turnAngleGc",
signature=".MoveTrackSingle",
definition=function(x){
if(!isLonLat(x))
warning('turnAngleGc is probably not a valid calculation on this projection')
fb<- finalBearing(x[-n.locs(x),], x[-1,])[-(n.locs(x)-1)]
b<- bearing(x[-n.locs(x),], x[-1,])[-1]
t<-(b-((fb)))
return(((t+180)%%360)-180)
})
setMethod("turnAngleGc",
signature=".MoveTrackStack",
definition=function(x){
if(!isLonLat(x))
warning('turnAngleGc is probably not a valid calculation on this projection')
return(lapply(split(x), turnAngleGc))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.