Nothing
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)
}
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.