# Blue tit visual system based on Hart et al (2000)
bluesens <- sensmodel(c(371, 448, 502, 563),
beta = FALSE,
lambdacut = c(330, 413, 507, 572),
oiltype = c("T", "C", "Y", "R"), om = TRUE
)
plot(bluesens)
# Alternatively, you can specify your own ylab
plot(bluesens, ylab = "absor.")
Run the code above in your browser using DataLab