Data generation

data1 = Table[rgBounded[{μ1, Σ1}, pr], {n1}] ; data2 = Table[rgBounded[{μ2, Σ2}, pr], {n2}] ;  xd = data1 ~ Join ~ data2 // Sort ;

Created by Mathematica  (September 8, 2003)