Sphere data generating

Input: Sphere sph with center  c ∈ (ℝ^3)and radius r >0, variance sigma, data number m;
Output: Data uniformly distributed on the sphere sph, and data set 𝒜 ⊂ (ℝ^3) homogeneously scattered around the sphere;
Submodules: None

DataSph[c_,r_,sigma_,m_]:=Module[{sph,A},
sph=RandomPoint[Sphere[c,r],m];
A=Table[RandomReal[MultinormalDistribution[sph[[i]],sigma IdentityMatrix[3]],{1}][[1]],{i,Length[sph]}];
{A,sph}
]