/*
**  Lesson 4.3: Structural Change Revisited
*/
use gpe2;
output file = gpe\output4.3 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]);

D = year.>1948; 
DL = D.*L;  
DK = D.*K;
           
call reset; 
_names = {"X","L","K","DL","DK","D"};               
call estimate(X,L~K~DL~DK~D); 
_restr = {0 0 1 0 0 0,
          0 0 0 1 0 0,
          0 0 0 0 1 0};
call estimate(X,L~K~DL~DK~D); 
end;