added otu.association command. added calcSpearman, calcKendall and calcPearson functi...

[mothur.git] / sharedkulczynski.cpp

diff --git a/sharedkulczynski.cpp b/sharedkulczynski.cpp
index 2b4f723526da5825ffc2cb9d2cda25cb4721932d..6aad5df26f2a6912b950df9e8d8211e730ef0fe1 100644 (file)
--- a/sharedkulczynski.cpp
+++ b/sharedkulczynski.cpp
@@ -2,7 +2,7 @@
  *  sharedkulczynski.cpp
  *  Mothur
  *
- *  Created by John Westcott on 3/24/09.
+ *  Created by Sarah Westcott on 3/24/09.
  *  Copyright 2009 Schloss Lab UMASS Amherst. All rights reserved.
  *
  */
@@ -13,7 +13,7 @@
 
 EstOutput Kulczynski::getValues(vector<SharedRAbundVector*> shared) {
        try {
-               int S1, S2, S12, tempA, tempB;
+               double S1, S2, S12, tempA, tempB;
                S1 = 0; S2 = 0; S12 = 0; tempA = 0; tempB = 0; 
                
                /*S1, S2 = number of OTUs observed or estimated in A and B 
@@ -33,7 +33,7 @@ EstOutput Kulczynski::getValues(vector<SharedRAbundVector*> shared) {
                        if ((tempA != 0) && (tempB != 0)) {     S12++; }
                }
                
-               data[0] = S12 / (float)(S1 + S2 - (2 * S12));
+               data[0] = 1.0 - S12 / (float)(S1 + S2 - (2 * S12));
                
                if (isnan(data[0]) || isinf(data[0])) { data[0] = 0; }