3D Test

This is a test of inputting a 3D plot into a HTML file to see if it will display on Netlify static website.

options(rgl.useNULL = TRUE)
rgl::setupKnitr(autoprint = TRUE)
library(knitr)
library(rgl)

This build of rgl does not include OpenGL functions.  Use
 rglwidget() to display results, e.g. via options(rgl.printRglwidget = TRUE).

knit_hooks$set(webgl = hook_webgl)
x <- sort(rnorm(1000))
y <- rnorm(1000)
z <- rnorm(1000) + atan2(x,y)
plot3d(x, y, z, col=rainbow(1000))

And this is the end.