[Genabel-commits] r756 - in pkg/VariABEL: R src/VARlib

[noreply at r-forge.r-project.org]

Author: maksim
Date: 2011-07-27 15:38:09 +0200 (Wed, 27 Jul 2011)
New Revision: 756

Modified:
   pkg/VariABEL/R/var_test_gwaa.R
   pkg/VariABEL/src/VARlib/var_homogeneity_tests.cpp
Log:
Levene's test fixed

Modified: pkg/VariABEL/R/var_test_gwaa.R
===================================================================
--- pkg/VariABEL/R/var_test_gwaa.R	2011-07-26 16:52:58 UTC (rev 755)
+++ pkg/VariABEL/R/var_test_gwaa.R	2011-07-27 13:38:09 UTC (rev 756)
@@ -221,6 +221,10 @@
 
 colnames(results_df) <- output_column_names
 
+if(testname != 4)
+	{
+	results_df <- results_df[,1:7]
+	}
 
 return(results_df)
 }

Modified: pkg/VariABEL/src/VARlib/var_homogeneity_tests.cpp
===================================================================
--- pkg/VariABEL/src/VARlib/var_homogeneity_tests.cpp	2011-07-26 16:52:58 UTC (rev 755)
+++ pkg/VariABEL/src/VARlib/var_homogeneity_tests.cpp	2011-07-27 13:38:09 UTC (rev 756)
@@ -166,7 +166,6 @@
 //___________________________________________________________
 chisq_df leven_test(snp_var_data * snp)
 {
-		std::cout<<"leven_test: START\n";
 //http://en.wikipedia.org/wiki/Levene%27s_test