R/multrnd_histc.R

Defines functions multrnd_histc

multrnd_histc <- function(n,p)
{
    edges <- c(0, cumsum(p))
    l <- length(edges)
    r <- hist(runif(n)*edges[l], edges, plot = FALSE)$counts
    return(r)
}
siamakz/BNBR documentation built on Oct. 21, 2019, 5:50 a.m.