# NOT RUN {
CIE1976uvSaturation(cbind(34.78467, 28.15159, 3.024663), as.numeric(
get("XYZperfectreflectingdiffuser",
envir = environment())[which(get("XYZperfectreflectingdiffuser",
envir = environment())[["Illuminant"]]=='C'),c('X2','Y2')]))
# }
Run the code above in your browser using DataLab