# illuminant A
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