#Librerías necesarias
install.packages("rgl")
install.packages("magick")
#Datos
data(iris)
head(iris)
#Codigo
library("rgl")
library("magick")
open3d()
triangles3d(cbind(x=rnorm(9), y=rnorm(9), z=rnorm(9)), col = "green")
decorate3d()
bg3d("white")
aspect3d(1,1,1)
#Giro Automatico
play3d( spin3d( axis = c(0, 0, 1), rpm = 7), duration = 100 )
# O Generar Gif
movie3d( spin3d( axis = c(0, 0, 1), rpm = 7),
duration = 10, dir = getwd(),
type = "gif", clean = TRUE )
###################################################
install.packages("rgl")
install.packages("magick")
library("rgl")
open3d()
triangles3d(cbind(x=rnorm(9), y=rnorm(9), z=rnorm(9)), col = "green")
decorate3d()
bg3d("white")
aspect3d(1,1,1)
play3d( spin3d( axis = c(0, 0, 1), rpm = 7), duration = 100 )
###################################################