# Blue tit visual system based on Hart et al (2000)
bluesens <- sensmodel(c(371,448,502,563),beta=F,oiltype = c("T", "C", "Y","R"),om= TRUE)
# Danio aequipinnatus based on Govardovskii et al. (2000)
daniosens <- sensmodel(c(357,411,477,569))
Run the code above in your browser using DataLab