MACRO

OneMedCI n Data CC nreps

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

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

Sort Bootmed Bootmed;
    By Bootmed.

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

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

Print Lower Upper

Histogram Bootmed;
    Percent;
    Cutpoint;
    Bar;
       Type 1;
       Color 3;
    Title "Resampling Distribution: Median";
    Axis 1;
       Label "Median".

ENDMACRO