Description Usage Arguments Value Author(s) References Examples

Models spectral sensitivity (with oil droplets; optional) based on peak cone sensitivity according to the models of Govardovskii et al. (2000) and Hart & Vorobyev (2005).

1 2 |

`peaksens` |
(required) a vector with peak sensitivities for the cones to model. |

`range` |
a vector of length 2 for the range over which to calculate the spectral sensitivities (defaults to 300nm to 700nm). |

`lambdacut` |
a vector of same length as peaksens that lists the cut-off wavelength
value for oil droplets. Needs either |

`Bmid` |
a vector of same length as peaksens that lists the gradient of line tangent to the absorbance spectrum of the oil droplets. See Hart and Vorobyev (2005). |

`oiltype` |
a list of same length as peaksens that lists the oil droplet types (currently accepts only "T", C", "Y", "R", "P") when Bmid is not known. Calculates Bmid based on the regression equations found in Hart ad Vorobyev (2005). |

`beta` |
logical. If |

`om` |
a vector of same length as |

`integrate` |
logical. If |

A data frame of class `rspec`

containing each cone model as a column.

Pierre-Paul Bitton [email protected], Chad Eliason [email protected]

Govardovskii VI, Fyhrquist N, Reuter T, Kuzmin DG and Donner K. 2000. In search of the visual pigment template. Visual Neuroscience 17:509-528

Hart NS, and Vorobyev M. 2005. modeling oil droplet absorption spectra and spectral sensitivities of bird cone photoreceptors. Journal of Comparative Physiology A. 191: 381-392

Hart NS, Partridge JC, Cuthill IC, Bennett AT (2000) Visual pigments, oil droplets, ocular media and cone photoreceptor distribution in two species of passerine bird: the blue tit (Parus caeruleus L) and the blackbird (Turdus merula L). J Comp Physiol A 186:375-387

1 2 3 4 5 6 7 8 9 | ```
## 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)
``` |

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.