# library
# library
library(rgl)
library(htmlwidgets)
# Creazione del grafico 3D e salvataggio come file HTML
plot3d(x = rnorm(100), y = rnorm(100), z = rnorm(100))
htmlwidgets::saveWidget(rglwidget(width = 520, height = 520),
file = "secondo.htlm",
libdir = "/Users/michelegallo/Downloads",
selfcontained = FALSE
)