# NOT RUN {
lpvs.sph.vol <- sample_sphere_volume(dim=10, n=20, radius=1)
RDP.graph.4 <- sample_dot_product(lpvs.sph.vol)
vec.norm <- apply(lpvs.sph.vol, 2, function(x) { sum(x^2) })
vec.norm
# }
Run the code above in your browser using DataCamp Workspace