Trying get a fit model with user input.

vince_faller

Let's say I want to help a user with a fit model, because I know what the Y is and I know that I want them to do gen reg.  So I give them this.  

 

Names default to here(1);
dt = open("$SAMPLE_DATA\Big Class.jmp");
fit  = dt << Fit Model(
	Y( :height ),
	Effects(),
	Center Polynomials( 0 ),
	Personality( "Generalized Regression" ),
	Generalized Distribution( "Normal" ),
);

Cool, fit = a model dialog.  But it's not modal, so the script keeps running.  Also, when they push run, fit is deleted.  

What I really want is for the user enter their stuff and then once the report  is up, I proceed.   

I'm trying to do something like this, but I've had no luck.  

while(
	obj = current report()[OutlineBox(1)] << Get Scriptable Object();
	!(char(obj) == "Fit Generalized[]" & try(obj[1] << Get Prediction Formula; 1, 0));
, 
	wait(.3);
);

I REALLY don't want to have to rebuild that whole UI with all of the options, especially since effects are not straight forward to put in.  

 

ian_jmp

I've used this kind of approach a few times previously:

Names default to here(1);

dt = open("$SAMPLE_DATA\Big Class.jmp");

fit  = dt << Fit Model(
	Y( :height ),
	Effects(),
	Center Polynomials( 0 ),
	Personality( "Generalized Regression" ),
	Generalized Distribution( "Normal" ),
);

// The 'Run' button
runButton = Report(fit)[ButtonBox(9)];

// Append to the in-built action of the button
runButton << setScript(doSomething);

// The 'Terms' shown in 'dt2' reflect the user selections made in teh launch dialog
doSomething =
Expr(
	Beep();
	fit2 = fit << run;
	dt2 = Report(fit2)[tableBox(5)] << makeCombinedDataTable;
	dt2 << setName("Parameter Estimates")
);