R/dists.R

Defines functions rnormal_poisson

rnormal_poisson <- function(n, mean=0, sd = 1){
    r = exp(rnorm(n,mean=mean,sd=sd))
    return(rpois(n,r))
}

    
    
spacedman/hospitr documentation built on May 30, 2019, 6:34 a.m.