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

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

Author: maksim
Date: 2014-01-30 09:59:21 +0100 (Thu, 30 Jan 2014)
New Revision: 1574

Modified:
   pkg/VariABEL/src/VARlib/inverse_variance_metaanalysis.cpp
Log:
Commented unused code

Modified: pkg/VariABEL/src/VARlib/inverse_variance_metaanalysis.cpp
===================================================================
--- pkg/VariABEL/src/VARlib/inverse_variance_metaanalysis.cpp	2014-01-29 23:00:40 UTC (rev 1573)
+++ pkg/VariABEL/src/VARlib/inverse_variance_metaanalysis.cpp	2014-01-30 08:59:21 UTC (rev 1574)
@@ -45,24 +45,24 @@
 							char *testname)
 {
 
-unsigned num_el = *num;
-double se_set1, se_set2, wt2_set1, wt2_set2, invsumwt2;
+//unsigned num_el = *num;
+//double se_set1, se_set2, wt2_set1, wt2_set2, invsumwt2;
+//
+//
+//
+//	for(unsigned i=0 ; i<num_el ; i++)
+//		{
+//		se_set1 = sqrt(sebeta_set1[i]*sebeta_set1[i]);
+//		se_set2 = sqrt(sebeta_set2[i]*sebeta_set2[i]);
+//	
+//		wt2_set1 = 1./(sebeta_set1[i]*sebeta_set1[i]);
+//		wt2_set2 = 1./(sebeta_set2[i]*sebeta_set2[i]);
+//
+//		invsumwt2 = 1./(wt2_set1+wt2_set2);
+//		mbeta[i] = (beta_set1[i]*wt2_set1 + beta_set2[i]*wt2_set2)*invsumwt2;
+//		mse[i] = sqrt(invsumwt2);
+//		}
 
-
-
-	for(unsigned i=0 ; i<num_el ; i++)
-		{
-		se_set1 = sqrt(sebeta_set1[i]*sebeta_set1[i]);
-		se_set2 = sqrt(sebeta_set2[i]*sebeta_set2[i]);
-	
-		wt2_set1 = 1./(sebeta_set1[i]*sebeta_set1[i]);
-		wt2_set2 = 1./(sebeta_set2[i]*sebeta_set2[i]);
-
-		invsumwt2 = 1./(wt2_set1+wt2_set2);
-		mbeta[i] = (beta_set1[i]*wt2_set1 + beta_set2[i]*wt2_set2)*invsumwt2;
-		mse[i] = sqrt(invsumwt2);
-		}
-
 }// end of function