powered by
sample_dirichlet(n, alpha)
dim
alpha
sample_dirichlet
n
length(alpha)-1
sample_sphere_surface
sample_sphere_volume
lpvs.dir <- sample_dirichlet(n=20, alpha=rep(1, 10)) RDP.graph.2 <- sample_dot_product(lpvs.dir) colSums(lpvs.dir)
Run the code above in your browser using DataLab