R/dirichletrnd.R
In Laurae2/LauraeCE: Laurae's Cross-Entropy Optimization
dirichletrnd <- function(a, n) {
out <- matrix(nrow = n, ncol = length(a))
for (i in 1:n) {
y <- rgamma(length(a), a, 1)
out[i, ] <- y / sum(y)
}
return(out)
}
Laurae2/LauraeCE documentation built on May 24, 2019, 6:19 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
dirichletrnd <- function(a, n) {
out <- matrix(nrow = n, ncol = length(a))
for (i in 1:n) {
y <- rgamma(length(a), a, 1)
out[i, ] <- y / sum(y)
}
return(out)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.