768879_zh-CN

liliconcom

如何通过脚本语言实现自动化分析

最近开始接触脚本语言，想用编辑语言来自动化简化模型的等价性检验，但是等方差检验之后，不清楚如何使用脚本语言编辑让软件根据 Levene 结果选择等方差或不等方差等价性检验

.

自动化和脚本回复：如何通过脚本语言实现自动化分析

下面是一个示例，可以让你了解如何对问题进行编码

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" );
);