# Load floral reflectance spectra
data(flowers)
# Estimate quantum catches, using the cie10-degree viewer matching function
vis.flowers <- vismodel(flowers, visual = "cie10", illum = "D65", vonkries = TRUE, relative = FALSE)
# Model floral spectra in the CIEXYZ space
flowers.ciexyz <- colspace(vis.flowers, space = "ciexyz")
# Model floral spectra in the CIELab space
flowers.cielab <- colspace(vis.flowers, space = "cielab")
# Model floral spectra in the CIELch space
flowers.cielch <- colspace(vis.flowers, space = "cielch")
Run the code above in your browser using DataLab