/*
** Lesson 10.4: Hildreth-Lu Grid Search Procedures
*/
use gpe2;
output file = gpe\output10.4 reset;
load data[40,6]= gpe\cjx.txt;
     
year = data[2:40,1];
X = ln(data[2:40,2]);
L = ln(data[2:40,3]);
K = ln(data[2:40,5]);

call reset;
_names = {"X","L","K"};
_rstat = 1;
_rplot = 2;
_ar = 1;	    @ AR(1) error structure @
_iter = 50;     @ 50 iterations @
_method = 2;    @ use H-L method @
call estimate(X,L~K);
end;