#Librerías necesarias
#Datos
install.packages("rgl")
install.packages("magick")
biom<-read.table("http://ares.inf.um.es/00Rteam/datos/biom2003.dat")
#Codigo
library("rgl")
library("magick")
plot3d( biom$Altura, biom$Peso, biom$Hombros,
col = biom$Sexo, type = "s", radius = 1.5 )
#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")
library("magick")
biom<-read.table("http://ares.inf.um.es/00Rteam/datos/biom2003.dat")
plot3d( biom$Altura, biom$Peso, biom$Hombros,
col = biom$Sexo, type = "s", radius = 1.5)
play3d( spin3d( axis = c(0, 0, 1), rpm = 7), duration = 100 )
###################################################