R/simMultDir.R

In robschick/eliciteg:

#' simMultDir - creates multiple Dirichlet distributions.
#'
#' @param n A number corresponding to the number of distributions to generate.
#' @param vec A vector of parameter values for the Dirichlet
#' @seealso Note that this loads the \code{gtools} package for the \code{rdirichlet} function.
#' @examples
#' makeDir(1, c(2, 4, 3))
#' makeDir(2, c(2, 4, 3))
makeDir <- function(n, vec){
  gtools::rdirichlet(n, vec)
}