# A sample on [0, 2*pi)
n <- 5
r_unif_cir(n = n)
# A sample on S^1
p <- 2
samp <- r_unif_sph(n = n, p = p)
samp
rowSums(samp^2)
# A sample on S^2
p <- 3
samp <- r_unif_sph(n = n, p = p)
samp
rowSums(samp^2)
Run the code above in your browser using DataLab