# NOT RUN {
  
# }
# NOT RUN {
    # Map the first 100 points of the Sobol' sequence in 3D
    #   onto the unit ball in 3D
    library(randtoolbox)
    des <- sobol(100,3)
    des_ball <- CtoB(des)
    pairs(des_ball,xlim=c(-1,1),ylim=c(-1,1),pch=16)
  
# }
Run the code above in your browser using DataLab