Nothing
library(minimal)
data(AuJC)
gold <- predict.material(AuJC, range=c(0.35, 1.2), n=300)
head(gold)
raw.gold <- subset(normalise.material(AuJC), wavelength < 1 & wavelength > 0.4)
library(ggplot2)
compare.material()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.