***
* 2C. Price Link Model 4/1/12
***;

* ;
title '';
proc syslin data = hazelnut.mergemj 2sls /*it3sls*/ reduced maxiter = 2000;
	endogenous Adj_Dom_Con Production lnrpHazelnuts MYIMPTotalQ25  MYIMPPMT;
	instruments DI2005 Adj_Total_Supply MYEXPPMT BAHAzelnuts  Beginning_Stocks sqrtculinary sqrtoregonb
				lag_MYIMPTotalQ25  turkey_production_tonnes sumrainfallmm TurkeyKernelPriceMT lagq LAGrCulinaryL lagrMYExpInshellP lagrMYExpkernelp lagrMYimpkernelp LAGrOregonB ;
	dom_demand: 	model Adj_Dom_Con = LnrpHazelnuts DI2005 sqrtculinary sqrtoregonb/dw overid;
	dom_supply: 	model Production =   MYIMPPMT  BAHazelnuts  /dw overid;
	import_demand:  model MYIMPTotalQ25= MYIMPPMT  sqrtculinary sqrtoregonb DI2005  /dw overid;
	import_supply:  model  MYIMPTotalQ25 =  turkey_production_tonnes /dw overid;
	price_link: model rphazelnuts = MYIMPPMT turkey_production_tonnes;
	identity Adj_Total_Supply = Beginning_Stocks + Production + MYIMPTotalQ25;
run;
title '';
title1'';
title2'';
footnote'';