/*
 theilr2
*! VERSION 1.0 15jan2012
*/
VERSION 10.0
INCLUDE _std_large
DEFINE _dlght 250
INCLUDE header
HELP hlp1, view("help theilr2")
RESET res1

DIALOG main, label("theilr2 - Theil R2 Multicollinearity Effect") ///
	tabtitle("Main")
BEGIN
 DEFINE _x _xsetbu
 DEFINE _y _top
 INCLUDE _bu_tsset
  
 TEXT tx_yvar	_lft	+30	120	., ///
	label("Dependent Variable:")
 TEXT tx_xvar	_vlx	@	300	., ///
	label("Independent Variables:")

 VARNAME vn_yvar  _lft	 _ss	120 .,	 ///
	label("Dependent Variable")
 VARLIST vl_xvar  _vlx	 @	300 ., ///
	label("Independent Variables")

  CHECKBOX ck_nocons @         _ms       @         .,	/*
		*/ label("Suppress constant term")	/*
		*/ option("noconstant")			/*
*/  
END

INCLUDE ifin
INCLUDE weights

PROGRAM command
BEGIN
 put "theilr2 "
 varlist main.vn_yvar main.vl_xvar 
 put " " /program ifin_output
 put " " /program weights_output
 beginoptions
 option main.ck_nocons
 endoptions
END