# Load floral reflectance spectra
data(flowers)
# Estimate quantum catches visual phenotype of a Blue Tit
vis.flowers <- vismodel(flowers, visual = 'bluetit')
# Estimate noise-weighted colour distances between all flowers
cd.flowers <- coldist(vis.flowers)
# Convert points to Cartesian coordinates in which Euclidean distances are
# noise-weighted.
propxyz <- jnd2xyz(cd.flowers)
# Plot the floral spectra in 'noise-corrected' space
plot(propxyz)
Run the code above in your browser using DataLab