# 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)
# ## End(Not run)
Run the code above in your browser using DataLab