58774_zh-CN

liliconcom

不显示“不均等方差”结果的一部分的方法

是否有一种好的方法不显示“不等方差”结果的某些部分

例如，我不想显示Bartlett的行和Welch的测试结果

 

回复：不显示“不均等方差”结果的某些部分的方法

益州

 

这可以通过JSL完成。隐藏韦尔奇的测试非常容易。删除Bartlett的测试需要更多代码，因为出于某种原因<<删除行（n）消息在表格框上不起作用（至少对我而言）。

 

干杯，

布雷迪

Names Default To Here( 1 );
New Table( "untitled 4",
 Add Rows( 26 ),
 New Script(
  "Source",
  Data Table( "untitled 3" ) << Stack(
   columns( :Column 1, :Column 2 ),
   Source Label Column( "Label" ),
   Stacked Data Column( "Data" )
  )
 ),
 New Column( "Label",
  Character,
  "Nominal",
  Set Values(
   {"Column 1", "Column 2", "Column 1", "Column 2", "Column 1", "Column 2",
   "Column 1", "Column 2", "Column 1", "Column 2", "Column 1", "Column 2",
   "Column 1", "Column 2", "Column 1", "Column 2", "Column 1", "Column 2",
   "Column 1", "Column 2", "Column 1", "Column 2", "Column 1", "Column 2",
   "Column 1", "Column 2"}
  )
 ),
 New Column( "Data",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values(
   [1, 2, 2, 4, 3, 6, 4, 8, 5, 10, 6, 12, 7, 14, 8, 16, 9, 18, 10, 20, 11, 22,
   12, 24, 13, 26]
  )
 )
);

ow = Oneway(
 Y( :Data ),
 X( :Label ),
 Means and Std Dev( 1 ),
 Unequal Variances( 1 ),
 Mean Error Bars( 1 ),
 Std Dev Lines( 1 )
);

rep = Report( ow );


//hide Welch's test
rep[Outline Box( "Welch's Test" )] << Set Title( "" ) << Close( 1 );

tb3 = rep[tablebox(3)];

//get names of columns in tablebox
cols = tb3 << get names;

//get numeric values, drop 4th row
mat = tb3 << getasmatrix;
mat = mat[1 :: 3, 0] |/ mat[5, 0];

//get test names, drop 4th row
names = tb3[String Col Box( 1 )] << get;
Remove From( names, 4 );

//delete the table box and write a new one without the 4th row
tb3 << delete;

rep[Outline Box( "Tests that the Variances are Equal" )] <<
append(
 tb1 = Table Box(
  String Col Box( cols[1], names ),
  Number Col Box( cols[2], mat[0, 1] ),
  Number Col Box( cols[3], mat[0, 2] ),
  Number Col Box( cols[4], mat[0, 3] ),
  Number Col Box( cols[5], mat[0, 4] )
 )
);
  
tb1[Number Col Box( 4 )] << set format( "Pvalue" ) <<
set conditional format( "pvalue" );