# NOT RUN {
library(photobiology)
library(photobiologyWavebands)
library(ggspectra)
names(leds.mspct)
q_ratio(leds.mspct$white, Blue(), Red())
peaks(leds.mspct$white, span = 101)
plot(leds.mspct$white)
q_ratio(leds.mspct$Q36_4000K, Blue(), Red())
# }
# NOT RUN {
plot(leds.mspct$Q36_4000K)
# }
# NOT RUN {
q_ratio(leds.mspct$NS6L183AT_H1, Blue(), Red())
# }
# NOT RUN {
plot(leds.mspct$NS6L183AT_H1)
# }
# NOT RUN {
# }
# NOT RUN {
plot(leds.mspct$NS6L183AT_H1, unit.out = "photon")
# }
# NOT RUN {
# }
# NOT RUN {
plot(leds.mspct$NS6L183AT_H1,
range = VIS(),
w.band = VIS_bands(),
span = 101)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab