Ketinit();
Setparent(Cdyname()+"fig");

Addax(0);

Ch=[];
if(contains(Ch,1),
 Rfun("1","rt",[100,5],["Disp=n"]);
 Boxplot("R1",R1,2,1/2);
);

Framedata2("1",[A,B]);
Rulerscale(A,["r",-4,4,1],["r",0,4,1]);

Figpdf();
Windispg();

//Help("Box");