sample_sphere_surface(dim, n = 1, radius = 1, positive = TRUE)
dim
(length of the alpha
vector for
sample_dirichlet
) times n
matrix, whose columns are the sample
vectors.sample_sphere_surface
generates uniform samples from $S^{dim-1}$
(the (dim-1)
-sphere) with radius radius
, i.e. the Euclidean
norm of the samples equal radius
.sample_dirichlet
;
sample_sphere_volume
lpvs.sph <- sample_sphere_surface(dim=10, n=20, radius=1)
RDP.graph.3 <- sample_dot_product(lpvs.sph)
vec.norm <- apply(lpvs.sph, 2, function(x) { sum(x^2) })
vec.norm
Run the code above in your browser using DataLab