# NOT RUN {
# illuminant A
# }
# NOT RUN {
SPD = illuminants[1:51*2-1,c('wlnm','A')] # every 10 nm
isoTempLinesTable <- createIsoTempLinesTable(SPD)
CCT <- spectra2CCT(SPD)
spectra2CRIGAIFSCI(SPD, isoTempLinesTable, CCT)
spectra2CRIGAIFSCI(SPD, isoTempLinesTable)
spectra2CRIGAIFSCI(SPD)
# }
Run the code above in your browser using DataLab