/*
** FILE BPM.E4
**
** Illustrates the use of selection procedures.
*/

library a:\bpm,stat,pgraph,dutil;

bpmset;


dataset="a:\\bpm";
let indvar=x1 x2 x3 x4 x5 x6;
let depvar=y1 y2;

_initval=0;

{indv,teta,ll,tetra,llt,teta1,ll1,teta2,ll2}=
     bprobsel(dataset,indvar,depvar,.05);

dos copy bprobit.out e41.out;
dos copy bprobsel.out e42.out;

dataset="a:\\bpm1";


{indv1,info1}=bprobsc(dataset,indvar,depvar,.05);

dos copy bprobit.out e43.out;
dos copy bprobsel.out e44.out;


let depvar=y1;

_final=0;

{indv1,info1}=uprobsel(dataset,indvar,depvar,.05);

dos copy bprobsel.out e45.out;


cls;
print "See the files e41.out through e45.out";