X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=metastats2.c;h=70edc3d63cda154b51bca2dcb8ee36b9413a97a9;hb=2bb9267aa4b4ecdf8488b06605cc9f3f36fa4332;hp=6601b09a365774b59ca8752f504fbfb5ab0cd4d3;hpb=5694c92fbf646fe01abc87bde2af59e14a9a56b6;p=mothur.git

diff --git a/metastats2.c b/metastats2.c
index 6601b09..70edc3d 100644
--- a/metastats2.c
+++ b/metastats2.c
@@ -86,7 +86,7 @@ int metastat_main (char* outputFileName, int numRows, int numCols, double thresh
 		ratio[i]=total[i]/min;
 	}
 	
-	// Change matrix into an array as received by R for compatibility.
+	//Change matrix into an array as received by R for compatibility.
 	
 	c=0;
 	for(i=0;i<col;i++){
@@ -187,11 +187,16 @@ int metastat_main (char* outputFileName, int numRows, int numCols, double thresh
 			prt=&prt1;
 			pre=&pre1;
 			
+			//MothurFisher fishtere;
+			//double mothurFex = fishtere.fexact(f11, f12, f21, f22);
+			
 			fexact(nr,nc,data, ldtabl,expect,prc,emin,prt,pre,work);
 			
 			if (*pre>.999999999){
 				*pre=1;
 			}
+			
+			//printf("feaxt = %f\t%f\t%f\t%f\t%f\t%f\n", *expect, *pre, f11, f12, f21, f22);
 			storage[i][8] = *pre;
 			pvalues[i]=*pre;
 		}