library(photobiology)
black_body.spct <- object_spct(w.length = c(100, 101, 4999, 5000),
Tfr = rep(0, 4), Rfr = rep(0, 4),
Tfr.type = "internal",
Rfr.type = "total")
setWhatMeasured(black_body.spct, "theoretical black body")
white_body.spct <- object_spct(w.length = c(100, 101, 4999, 5000),
Tfr = rep(0, 4), Rfr = rep(1, 4),
Tfr.type = "internal",
Rfr.type = "total")
setWhatMeasured(white_body.spct, "theoretical white body")
clear_body.spct <- object_spct(w.length = c(100, 101, 4999, 5000),
Tfr = rep(1, 4), Rfr = rep(0, 4),
Tfr.type = "internal",
Rfr.type = "total")
setWhatMeasured(clear_body.spct, "theoretical clear body")
save(black_body.spct, file = "./data/black_body.spct.rda")
save(white_body.spct, file = "./data/white_body.spct.rda")
save(clear_body.spct, file = "./data/clear_body.spct.rda")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.