## Not run:
# # Blue tit visual system based on Hart et al (2000)
# bluesens <- sensmodel(c(371,448,502,563), beta = F, lambdacut = c(330, 413, 507, 572),
# 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