New Table ("Working Table", Add Rows(584), New Column("Height", Numeric, Continuous, Format("Best", 12), Set Values([68,67,62,70,70,65,64,63,69,65,64,64,66,67,63,64,69,62,67,62,65,62,66,65,62,64,
64,67,67,67,67,65,68,67,62,67,65,60,62,63,68,70,62,67,61,63,63,67,65,64,67,68,
65,65,69,70,64,67,68,64,66,69,66,66,70,67,63,66,68,67,75,68,70,63,68,64,64,77,
62,63,66,68,67,67,63,65,64,65,66,67,65,67,72,65,65,69,64,67,65,68,65,64,67,71,
67,64,63,69,65,60,63,62,69,63,63,65,65,67,66,68,64,65,72,67,66,63,62,72,62,73,
65,68,62,67,68,69,66,65,68,68,67,64,66,68,70,65,70,65,68,66,64,67,67,67,70,64,
65,69,70,69,60,64,64,70,65,63,67,68,70,65,68,61,65,69,63,67,65,67,74,66,67,60,
64,68,65,62,69,68,69,67,64,66,63,67,63,63,69,62,72,65,64,72,65,63,64,65,60,62,
63,61,69,66,69,65,64,63,62,67,70,66,62,64,66,64,60,65,65,68,62,67,72,62,67,63,
69,60,63,66,65,68,62,67,62,62,66,58,64,65,64,69,64,64,68,66,63,70,71,68,70,80,
64,65,65,63,68,63,65,67,67,70,64,60,62,66,67,66,72,63,65,67,66,65,66,67,65,64,
65,68,67,69,66,62,67,68,64,65,66,67,64,65,72,68,69,68,65,63,66,72,66,61,61,62,
67,66,64,67,64,64,65,67,68,67,67,69,64,67,64,70,61,69,61,68,66,66,66,63,71,67,
67,70,65,66,68,60,56,66,70,62,67,67,69,67,66,67,60,66,66,61,66,66,63,62,66,68,
71,60,63,70,69,62,65,68,66,63,65,68,62,63,67,62,71,63,64,61,63,67,64,71,69,66,
64,66,63,67,65,65,63,67,68,63,63,62,68,69,64,65,69,68,63,68,65,68,69,64,69,63,
65,62,66,65,67,67,68,69,68,71,68,64,65,68,67,66,66,67,66,67,63,65,64,67,69,67,
65,66,65,68,68,63,62,62,61,64,64,67,68,65,70,62,67,65,62,62,62,63,68,69,61,68,
63,63,62,63,68,69,67,64,63,67,67,66,68,65,67,68,61,72,61,70,66,61,67,72,68,64,
70,66,62,64,60,69,62,65,67,68,60,63,67,72,66,63,66,67,66,64,65,71,65,66,66,69,
64,72,67,64,65,70,65,69,65,67,62,67,67,69,72,66,64,60,66,64,64,63,64,64,63,70,
67,65,61,68,66,68,61,68,65,66,65,67,65,64,61,69,69,63,68,69,59,74,63,67,60,62,
68,67,70,67,65,69,67,63,67,64,65,67])));

Current Data Table(DataTable("Working Table"));

popdist = Distribution(Continuous Distribution(Column(column(1))));
popdistr = popdist<<Report;
popsums = popdistr[NumberColBox(2)] << GetAsMatrix;
mu = popsums[1,0];
sigma = popsums[2,0];
N = popsums[6,0];

popdist<<Close Window;

DataTable("Working Table") << New Column("Sample", Numeric, Continuous, Formula(If(Row() <= 25, 
column(1)[Col Shuffle()], Empty())));

DataTable("Working Table") << RunFormulas;

DataTable("Working Table") << Subset(Output Table("Samples"), Copy Formula(0), Rows(1::25)); 

DataTable("Samples") << Delete Columns(column(1));

Close("Working Table", No Save);