Create GenSphereRejection.R

Generate from uniform n-sphere by rejection sampling.