MACRO

OneMeanCI n Data CC nreps

Mconstant n CC cl cu Lower Upper nreps I
Mcolumn Data Bootmean Resample

DO I= 1:nreps
     Sample n Data Resample;
     replace.
Let Bootmean(I) = Mean(Resample)
ENDDO

Sort Bootmean Bootmean;
    By Bootmean.

Let cl = round (nreps*(1-CC)/2)
Let cu = round (nreps*(1+CC)/2)

Let Lower = Bootmean(cl+1)
Let Upper = Bootmean(cu)

Print Lower Upper

Histogram Bootmean;
    Percent;
    Bar;
       Type 1;
       Color 3;
    Title "Resampling Distribution: Mean".

ENDMACRO