Je me suis récemment lancé dans les langages de script et je souhaite utiliser des langages d'édition pour automatiser les tests d'équivalence de modèles réduits. Cependant, après le test d'équivariance, il n'est pas clair comment utiliser l'édition en langage de script pour permettre au logiciel de sélectionner des tests d'équivalence d'équivariance ou de variance inégale basés sur les résultats de Levene.
.
Voici un exemple qui devrait vous donner une idée de la façon de coder le problème
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" );
);
