New Table ("Working Table", Add Rows(1070), New Column("Miles From Home", Numeric, Continuous, Format("Best", 12), Set Values([195,120,200,140,60,0,511,210,120,90,90,93,244,40,40,90,100,124,400,206,184,240,
230,0,175,60,160,180,0,100,300,0,180,0,80,120,90,220,190,200,130,120,157,230,75,
200,109,200,0,50,600,40,5,80,150,30,140,10,305,79,220,55,20,180,75,150,210,11,
1500,154,80,360,170,40,35,0,35,95,190,101,150,15,210,215,45,13,0,215,28,260,30,
8587.2,30,60,7000,230,22,130,180,18,50,120,30,2000,220,300,180,82,160,100,360,0,
58,0,65,150,190,288.5,300,132,4000,70,150,300,215,30,40,150,190,375,193,180,293,
250,45,45,300,240,1500,40,13000,260,800,369,168,50,440,60,75,40,200,85,190,175,
200,0,33,150,160,360,50,189,105,65,950,350,210,138,100,390,6000,130,110,200,15,
25,100,35,120,300,220,80,110,30,500,1697,57,150,45,10,120,175,350,14,75,180,90,
250,90,100,350,770,200,180,110,130,90,24,150,60,150,50,142,190,40,1000,400,140,
385,212,150,90,396,300,200,140,90,52,35,321,120,180,135,155,70,75,45,100,35,210,
130,111,150,0,210,200,375,173,180,120,80,110,75,180,40,240,250,290,180,0,80,95,
117,101.1,85,200,250,162.5,125,62,120,30,125,70,0,110,40,60,120,5000,1200,90,
300,0,280,100,85,320,180,75,85,90,181,165,40,85,130,0,225,100,180,100,280,40,35,
180,175,55,230,180,90,140,45,70,0,40,200,122,5,115,120,100,175,30,300,45,250,
330,70,160,115,220,230,0,79,30,368,2000,0,30,105,43,300,120,60,0,237,95,60,65,
710,400,30,1100,120,370,130,110,12,0,100,200.2,87,90,50,35,250,100,328,64,220,
180,200,30,90,150,60,0,102,40,72,120,75,510,400,120,20,7000,350,0,0,69,180,65,
0,460,40,240,365,2300,63,40,366,33,35,8,250,350,160,286,90,150,50,205,37,75,45,
75,350,1700,150,200,140,400,4500,200,500,175,15,0,176,42,198,100,100,185,36,250,
120,0,20,210,90,96,48,220,430,60,200,0,244,450,170,120,3000,1000,330,200,1200,
22,138,40,100,120,45,90,120,35,80,110,316,45,453,25,90,30,300,10,130,181,30,73,
0,180,250,168,134,45,150,200,50,45,55,107,27.5,240,160,118,185,0,99.6,30,525,90,
72,185,200,150,135,90,0,20,370,1000,160,150,700,45,350,300,132,90,320,220,60,
175,140,10,30,190,10,889,120,1400,65,120,150,25,400,40,209,40,180,100,45,350,40,
45,154,45,0,50,130,120,6000,43,20,40,0,150,90,120,200,25,1000,65,60,180,0,250,
120,180,40,230,200,34,35,180,60,60,235,5000,2500,300,35,50,45,180,100,100,388,
90,120,10,85,110,30,105,130,0,135,120,35,0,1381,140,120,170,180,210,113,326,192,
40,65,4000,15,375,20,350,200,75,440,200,400,7000,800,361.5,130,60,130,150,50,
3000,40,30,805.84,175,40,250,160,165,120,333,120,30,134,90,225,150,927,210,60,
350,110,135,30,37,8,250,750,200,180,200,330,150,250,250,40,225,100,198,230,
6000,2000,200,375,120,110,150,550,210,300,40,208,0,40,2300,250,40,360,62,125,
35,93,212,200,180,65,45,620,120,180,60,90,45,0,0,110,25,5900,212,320,30,120,
215,100,100,40,210,100,220,200,240,456,20,30,185,140,60,85,100,35,150,120,215,
243,90,40,100,40,0,170,113,100,46,40,45,82,0,100,200,35,95,40,15,98,99,60,300,
87,345,200,100,150,150,359,175,30,160,100,146,200,300,50,250,170,75,175,130,10,
6000,60,60,323,150,220,500,45,153,140,184,3000,4,10000,50,189,175,60,140,300,40,
80,590,45,211,250,370,101,220,330,0,5,31,40,0,155,40,140,200,48,120,100,60,222,
200,96,0,225,126,145,0,200,200,60,350,150,60,193,180,25,0,200,35,201,20,117,9,
7,0,189,50,1035.6,84,1528,150,30,80,220,115,33,300,190,326,30,17,90,220,15,120,
100,195,60,210,185,50,800,40,0,250,3500,158,150,25,120,25,215,30,185,100,180,
280,60,25,250,350,110,140,80,45,150,300,385,25,424,35,1050,70,130,6750,125,20,
30,165,136,0,30,92,170,315,800,8,190,78,150,844,1800,35,120,1800,200,20,100,300,
250,120,1275.25,770,120,70,200,320,75,360,50,220,270,230,192,190,45,220,30,50,
100,23,100,230,125,150,250,270,250,200,20,160,1,50,35,60,1800,20,50,20,30,200,
75,120,176,1000,140,20,90,110,215,720,20,182,0,1412.47,90,245,215,1400,385,220,
90,120,100,40,94,260,23,99,211,0,200,300,196,300,35,200,170,120,0,250,100,150,
347.47,90,350,60,30,150,109,1042.92,40,340,60,35,35,75,1700,0,215,75,240,20,65,
35,30,0,200,232,350,144,180,182.5,12,160,90,68,250,180,0,180,52,75,45,46,35,333,
600,500,25,150,0,45,400,100])));

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;

for(i=0, i<100, i++, Data Table("Working Table") << New Column("(Size 25) Sample " || Char( (i+1)), 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::100)); 

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

for(i=1, i<=100, i++, dist = Distribution(Continuous Distribution(Column(column (i))));
distr = dist<<Report;
matrix = distr[NumberColBox(2)] <<GetAsMatrix;
theoutput1 = if(i > 1, Concat(theoutput1,matrix),matrix);
dist<<Close Window;
);

New Table ("samplesummaries", Add Rows(100), New Column("Mean of Sample Size 25", Numeric, Continuous, Format("Best",12), Set Values (theoutput1[1,0])), New Column("Std. Dev. of Sample Size 25", Numeric, Continuous, Format("Best", 12), Set Values(theoutput1[2,0])));

New Column("Lower 95% CL Size 25", Numeric, Continuous, Format("Best", 12), Formula(:Mean of Sample Size 25 - 2.063899*(:Std. Dev. of Sample Size 25/5)));

New Column("Upper 95% CL Size 25", Numeric, Continuous, Format("Best", 12), Formula(:Mean of Sample Size 25 + 2.063899*(:Std. Dev. of Sample Size 25/5)));

New Column("Mu in 95% Interval Size 25?", Character, Nominal, Width(8), Formula(If(:Lower 95% CL Size 25 < mu < :Upper 95% CL Size 25, "Yes", "No")));

Close("Working Table", No Save);