powered by
CIE1976uvSaturation
CIE1976uvSaturation(uvMatrix, whitepoint)
CIE1976uvSaturation(cbind(34.78467, 28.15159, 3.024663), as.numeric( XYZperfectreflectingdiffuser[which(XYZperfectreflectingdiffuser[["Illuminant"]]== 'C'),c('X2','Y2')]))
Run the code above in your browser using DataLab