## Not run:
# # 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))## End(Not run)
Run the code above in your browser using DataLab