procrustes_p.dlg

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

/*
	predict (after procrustes)

*!  VERSION 1.0.0  25mar2005

*/

VERSION 9.0

INCLUDE _std_large
INCLUDE header

HELP hlp1, view("help procrustes postestimation")
RESET res1

DIALOG main, label("predict - Prediction after estimation") tabtitle("Main")
BEGIN
  TEXT     tx_var		_lft	_top	_vlwd	.,		///
	label("New variable names:")
  EDIT     ed_vars		@	_ss	_vlwd	.,		///
	label("New variables")
  EDIT     ed_var		@	@	_vnwd	.,		///
	label("New variable")

  DEFINE _x  _vlsep
  DEFINE _y  _top
  DEFINE _cx _vlx
  INCLUDE _type

  GROUPBOX gb_produce		_lft	_ls	_iwd	_ht6,		///
	label("Produce:")
  RADIO    rb_fit		_indent	_ss	_ibwd	.,	first	///
	onclickon(script main_vars_on)					///
	option(fitted) 							///
	label("Fitted values using least squares approximations of target variables")
  RADIO    rb_residual		@	_ss	@	.,		///
	onclickon(script main_vars_on)					///
	option(residual) 						///
	label("Unstandardized residuals for each of the target variables")
  RADIO    rb_q			@	_ss	@	.,	last	///
	option(q) label("Residual sum of squares over all variables")	///
	onclickon(script main_var_on)
END

SCRIPT main_var_on
BEGIN
	main.tx_var.setlabel "New variable name:"
	main.ed_var.show
	main.ed_vars.hide
END

SCRIPT main_vars_on
BEGIN
	main.tx_var.setlabel "New variable names:"
	main.ed_vars.show
	main.ed_var.hide
END

INCLUDE ifin

INCLUDE _type_list_all

PROGRAM command
BEGIN
	put "predict "
	require main.ed_var
	require main.ed_vars
	if ! main.cb_type.isdefault() {
		put  main.cb_type " "
		if main.rb_fit | main.rb_residual {
			put "("
			put main.ed_vars
			put ") "
		}
		if main.rb_q {
			put main.ed_var
		}
	}
	if main.cb_type.isdefault() {
		put " " main.ed_var " "
		put " " main.ed_vars
	}
	INCLUDE _ifin_pr
	beginoptions
		option main.rb_fit
		option main.rb_residual
		option main.rb_q
	endoptions
END