R/MealSize.R

#' MealSize driving function
#' @keyword MealSize
#' @export
#' @examples
MealSize <- function (MesMen, MesStd, MesMin, MesMax) {
    MealSize <- msm::rtnorm(n = 1, mean = MesMen, sd = MesStd,
                       lower = MesMin, upper = MesMax)
}
jamaas/jammwe documentation built on May 20, 2019, 10:19 p.m.