R/rMultinom.R

In TDA: Statistical Tools for Topological Data Analysis

Defines functions rMultinom

Documented in rMultinom

rMultinom <- function(size, prob) {
  return (rowSums(stats::rmultinom(n = size %/% (2 ^ 31 - 1),
      size = 2 ^ 31 - 1, prob = prob)) + as.vector(stats::rmultinom(n = 1,
      size = size %% (2^31-1), prob = prob)))
}

Try the TDA package in your browser