Recientemente comencé con los lenguajes de secuencias de comandos y quiero usar lenguajes de edición para automatizar las pruebas de equivalencia de modelos reducidos. Sin embargo, después de la prueba de equivarianza, no está claro cómo utilizar la edición del lenguaje de escritura para permitir que el software seleccione pruebas de equivalencia de equivarianza o de varianza desigual basadas en los resultados de Levene.

.
Aquí hay un ejemplo que debería darle una idea de cómo codificar el problema.
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" );
);