Here is a sample script for automation of a Stepwise regression
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA\semiconductor capability.jmp" );
fm = Fit Model(
Y( :NPN1 ),
Effects(
:PNP1,
:PNP2,
:NPN2,
:PNP3,
:IVP1,
:PNP4,
:NPN3,
:IVP2,
:NPN4,
:SIT1,
:INM1,
:INM2,
:VPM1,
:VPM2,
:VPM3,
:PMS1,
:SNM1,
:SPM1,
:NPN5,
:EP2,
:ZD6,
:PBA,
:PLG,
:CAP
),
Personality( "Stepwise" ),
Run
);
fm << Finish;
nfm = fm << run model;
nfm << prediction formula;
Jim