Is there an easy way to script the Fit Model Macros?

vince_faller

I can't believe I've never asked this before, but does anyone know if I can give a script just what macro to run on what I have selected?  

 

Like say I want to do response surface on "Age" and "weight"

 

Names default to here( 1 );
dt = open("$SAMPLE_DATA\Big Class.jmp");

dt << Clear Column Selection();
dt << Select Columns({"weight", "age"});

fm = dt << Fit Model(Y(:height), 
	// do something involving Response Surface
);

// So that the final report looks the same as.

fm_real = dt << Fit Model(
	Y( :height ),
	Effects( :age, :weight & RS, :age * :weight, :weight * :weight ),
	Personality( "Standard Least Squares" ),
	Emphasis( "Effect Leverage" ),
	Run()
);

I built a bunch of helper functions to do this previously and I really don't want to have to build them again.  

 

peng_liu

Try this:

Names default to here( 1 );
dt = open("$SAMPLE_DATA\Big Class.jmp");
dialog = dt << Fit Model(
	Personality( "Standard Least Squares" ),
	Emphasis( "Effect Leverage" ),
);
dialog << Y( :height );
dialog << Effects(Response Surface(:weight, :age));
dialog << Run();