[Genabel-commits] r1365 - pkg/VariABEL/src/VARlib

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

Author: maksim
Date: 2013-11-07 07:04:33 +0100 (Thu, 07 Nov 2013)
New Revision: 1365

Modified:
   pkg/VariABEL/src/VARlib/supplementary_functions.cpp
Log:
Fixed bug (#4916) reported by Hermann Norpois on r-forge tracker. The problem was in function for variance calculation. The function thought that the sample size is less then 2 even if it is not. Not clear how it worked before.

Modified: pkg/VariABEL/src/VARlib/supplementary_functions.cpp
===================================================================
--- pkg/VariABEL/src/VARlib/supplementary_functions.cpp	2013-11-06 15:30:15 UTC (rev 1364)
+++ pkg/VariABEL/src/VARlib/supplementary_functions.cpp	2013-11-07 06:04:33 UTC (rev 1365)
@@ -711,7 +711,7 @@
 	double sum = 0;
 	double mean = my_mean(vec);
 
-	error("error: var: sample has not more than one element");
+	if(vec->number <2) error("error: var: Phenotypic data contains less than two subjects.");
 
 
 	for(unsigned i=0; i<vec->number ; i++)