if (FALSE) {
data(penguins,package='palmerpenguins')
penguins_no_na = as.data.frame(na.omit(penguins))
penguins_adelie = penguins_no_na[penguins_no_na$species=="Adelie",
c("bill_length_mm","bill_depth_mm","flipper_length_mm")]
hv = hypervolume_gaussian(penguins_adelie,name='Adelie')
if(interactive())
{
plot(hv, show.3d=TRUE)
hypervolume_save_animated_gif()
rgl.close()
}
}
Run the code above in your browser using DataLab