# NOT RUN {
# Plot the honeybee's receptors
sensdata(visual = 'apis', ylab = 'Absorbance', plot = TRUE)
# Plot the average UV vs V avian receptors
sensdata(visual = c('avg.v', 'avg.uv'), ylab = 'Absorbance', plot = TRUE)
# Retrieve the CIE colour matching functions as an rspec object
ciedat <- sensdata(visual = c('cie2', 'cie10'))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab