R/MeanAngle.R

MeanAngle <- function (angles) 
{
    sin_ = AddSinVectors3D(angles)
    cos_ = AddCosVectors3D(angles)
    angle = atan(sin_/cos_)
    angle = ToSexagesimal3D(angle)
    return(angle)
}

Try the VecStatGraphs3D package in your browser

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

VecStatGraphs3D documentation built on May 1, 2019, 8:03 p.m.