powered by
spectra2CCT
spectra2CCT(SPD=NA, isoTempLinesTable=NA, CIETable = colorscience::ciexyz31, TCS = colorscience::TCSdata)
# illuminant A SPD = illuminants[1:51*2-1,c('wlnm','A')] # every 10 nm CCT <- spectra2CCT(SPD) CCT
Run the code above in your browser using DataLab