14 lines
425 B
R
14 lines
425 B
R
#' @title Generates random numbers
|
|
#' @return vector of length `nc` with r.v. realizations from Gamma(rate=1)
|
|
#' @examples rBAPS:::randdir(matrix(c(10, 30, 60), 3), 3)
|
|
#' @param counts shape parameter
|
|
#' @param nc number of rows on output
|
|
#' @seealso randga
|
|
randdir <- function(counts, nc) {
|
|
svar <- zeros(nc, 1)
|
|
for (i in 1:nc) {
|
|
svar[i, 1] <- randga(counts[i, 1], 1)
|
|
}
|
|
svar <- svar / sum(svar)
|
|
return(svar)
|
|
}
|