JSL - Save Best Transformation

joeldomo

Hi, 

 

I'm running the script below and it will stop after the box-cox outline box generation. What i do is then is to manually 'Save Best Transformation' in the 'Box Cox Transformation' outline box. My question, Is there a way to automate the 'Save Best Transformation' via JSL to continue with the script on more items to transform? thanks to help 

 

-Rgsd, Joel

 

Clear Log();
dtName = "Big Class";
dt = Open( "$SAMPLE_DATA/" || dtName || ".jmp" );
nwd = New Window( "Box Cox",
dt << Fit Model(
Y( :weight ),
Effects,
Personality( "Standard Least Squares" ),
Emphasis( "Effect Leverage" ),
Run(
:weight << {Summary of Fit( 1 ), Analysis of Variance( 1 ), Parameter Estimates( 1 ), Lack of Fit( 0 ), Plot Actual by Predicted( 1 ),
Plot Regression( 0 ), Plot Residual by Predicted( 1 ), Plot Effect Leverage( 1 ), Box Cox Y Transformation( 1 ),
save best transformation( 1 )}
)
)
);

 

 

stephen_pearson

If you create the code you shared in JSL as a string and have all the column names you wish to transform as a list (colListYBoxCox) then you can substitute in the column names and loop over all the columns in your list (example below).

 

I have done this and then checked if the box-cox transformation made a big difference, and automatically deleted those which were a waste of time.

 

Regards,

 

Stephen

 

For( i = 1, i <= N Items( colListYBoxCox ), i++,

boxcoxstring = "boxcoxwindow = Fit Model(
Y(";
boxcoxstring = Concat( boxcoxstring, ":Name(\!"", colListYBoxCox[i], "\!")," );

boxcoxstring = Concat( boxcoxstring, ")," );
boxcoxstring = Concat(
boxcoxstring,
"Effects,
Personality( \!"Standard Least Squares\!" ),
Emphasis( \!"Effect Leverage\!" ),"
);

boxcoxstring = Concat(
boxcoxstring,
"Run(:Name(\!"",
colListYBoxCox[i],
"\!")<< {Lack of Fit( 0 ), Plot Actual by Predicted( 0 ),
Plot Regression( 0 ), Plot Residual by Predicted( 0 ),
Plot Effect Leverage( 0 ), Box Cox Y Transformation( 1, Save Best Transformation( 1 ) ), Show VIF( 1 )},
),"
);
boxcoxstring = Concat( boxcoxstring, ");" );

Eval( Parse( boxcoxstring ) );

Wait( 0 );
boxcoxwindow << Close Window;

);