How can I achieve automated analysis through scripting languages

[#1]

I have been getting started with scripting languages recently, and I want to use editing languages to automate the equivalence testing of reduced models. However, after the equivariance test, it is unclear how to use script language editing to enable the software to select equivariance or unequal variance equivalence tests based on Levene results

.

[#2]

Here is an example that should give you an idea of how to code the issue

Names Default To Here( 1 );
dt = 
// Open Data Table: Big Class.jmp
// → Data Table( "Big Class" )
Open( "$SAMPLE_DATA/Big Class.jmp" );

ow = Oneway(
	Y( :height ),
	X( :age ),
	Std Dev Lines( 1 ),
	Unequal Variances( 1 )
);

// Get the p-value from the Levene results
value = (Report( ow )["Tests that the Variances are Equal",
Number Col Box( "Prob > F" )] << get)[3];

// If the Levene result is less than 0.05 
If( value < 0.05,
	ow << Equivalence Tests( 1, 0.05, "Unequal Variances", "Equivalence" ),
	ow << Equivalence Tests( 1, 0.05, "Pooled Variance", "Equivalence" );
);