Mean-Difference Plot

© A.I. McLeod, February 2002

<< "d:\\math\\2001\\mviz\\bilo.m"
<< "d:\\math\\2001\\mviz\\mviz.m"

x = 
        Partition[ReadData["d:\\math\\2000\\mviz\\data\\yonkers.dat"], 
          2];

yonkers = Log[2,  First[x // Transpose]];
stamford = Log[2,  Last[x // Transpose]];

mean = (yonkers + stamford)/2; 
    difference = stamford - yonkers;

g = 
        RobustLoessPlot[Transpose[{mean,  difference}], 1, 1, 
          FrameLabel -> {"Mean", "Difference"}];

Export["d:\\math\\2000\\mviz\\eps\\mdplot.eps", 
      g, "EPSI"]