# NOT RUN {
data(flowers)
# CIEXYZ
vis.flowers <- vismodel(flowers, visual = "cie10", illum = "D65", vonkries = TRUE, relative = FALSE)
xyz.flowers <- colspace(vis.flowers, space = "ciexyz")
plot(xyz.flowers)
# CIELAB
lab.flowers <- colspace(vis.flowers, space = "cielab")
plot(lab.flowers)
# }
Run the code above in your browser using DataLab