new;
"EST.GPR: program to compute maximum likelihood estimates of
          a binary logit model of cooperation in the prisoners dilemma 
	  John Rust, University of Maryland, November, 2005 ";
   
   #include setup.gpr;

   infile="pa";
   infile="papb";
   inlist="pa.lst";
   inlist="papb.lst";
   outfile="pa.out";
   outfile="papb.out";
   qsav="pa";
   qsav="papb";

   {iloc,ivar,dvar,dloc,cloc}=select(inlist);
   /* q=zeros(rows(iloc),1); */

   /* call max(dvar,dloc,ivar,iloc,cloc,q,infile,500,outfile,qsav,&evalblg); */
  /* call
   * max(dvar,dloc,ivar,iloc,cloc,q,infile,500,outfile,qsav,&evalpd); */
   call drvchk(dloc,iloc,cloc,q,infile,5000,outfile,qsav,&evalpd);

/* system 0; */