#' VirVia function
#' @keyword VirVia
#' @export
#' @examples
VirVia <- function (ViaMen, ViaStd, ViaMin, ViaMax) {
Viability <- msm::rtnorm(n = 1, mean = ViaMen, sd = ViaStd,
lower = ViaMin, upper = ViaMax)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.