# ehi6.cf  command file for graphical proportionality check

nvar(
    dfile = ehc7.ple,           # data file 
    isel = gt(c7,0) & lt(c7,1), # selection of admissible values
 
    M = c1[0],          # variable to select men
    W = c1[1],          # variable to select women
    Time = c3,          # time axis
    Surv = c7,
    LLS  = log (-log (Surv)),
); 
psfile = ehi6.ps;  output file
psetup(
    pxlen =  80,    # length of x axis in mm
    pylen =  40,    # length of y axis in mm

    pxa   = 0,240,  # user coordinates on x axis
    pya   = -5,1,   # user coordinates on y axis
);
plxa (sc=24,ic=0);     plot x axis
plya (sc=1,ic= 0);     plot y axis
#plframe;               plot frame

plot(sel=M) = Time,LLS;
plot(sel=W) = Time,LLS;
pltext(xy=192,0.6) = Women;     labels 
pltext(xy=216,0.1) = Men;