# Load floral reflectance spectra
data(flowers)
# CIEXYZ
# Estimate quantum catches, using the cie10-degree viewer matching function
vis.flowers <- vismodel(flowers, visual = "cie10", illum = "D65", vonkries = TRUE, relative = FALSE)
# Run the ciexyz model
xyz.flowers <- colspace(vis.flowers, space = "ciexyz")
# Visualise the floral spectra in a ciexyz chromaticity diagram
plot(xyz.flowers)
# CIELAB
# Using the quantum catches above, instead model the spectra in the CIELab
# space
lab.flowers <- colspace(vis.flowers, space = "cielab")
# And plot in Lab space
plot(lab.flowers)
Run the code above in your browser using DataLab