# 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))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab