R/rhermite.R

rhermite <-
function(n, a, b, m=2)
{
  if (floor(m) != m ) {
    warning("improper m parameter specification")
    return(rep(NaN, n))
  }
  res <- rpois(n, a) + m*rpois(n, b)
  return(res)
}

Try the hermite package in your browser

Any scripts or data that you put into this service are public.

hermite documentation built on May 1, 2019, 7:02 p.m.