R/VectorsToRectangular3D.R

VectorsToRectangular3D <- function (vectors) 
{
    module = vectors[, 1]
    colatitud = vectors[, 2]
    longitud = vectors[, 3]
    
    x <- sin(ToRadians3D(colatitud)) * cos(ToRadians3D(longitud)) * module
    y <- sin(ToRadians3D(colatitud)) * sin(ToRadians3D(longitud)) * module
    z <- cos(ToRadians3D(colatitud)) * module
    rectangular_vectors = matrix(nrow = length(colatitud), ncol = 3)
    rectangular_vectors[, 1] <- x
    rectangular_vectors[, 2] <- y
    rectangular_vectors[, 3] <- z
    return(rectangular_vectors)
}

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.