# 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)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab