sharedmorisitahorn.cpp

   1 /*
   2  *  sharedmorisitahorn.cpp
   3  *  Mothur
   4  *
   5  *  Created by Sarah Westcott on 3/24/09.
   6  *  Copyright 2009 Schloss Lab UMASS Amherst. All rights reserved.
   7  *
   8  */
   9
  10 #include "sharedmorisitahorn.h"
  11
  12 /***********************************************************************/
  13 EstOutput MorHorn::getValues(vector<SharedRAbundVector*> shared) {
  14         try {
  15                 data.resize(1,0);
  16
  17                 double Atotal, Btotal, tempA, tempB;
  18                 Atotal = 0; Btotal = 0;
  19                 double  morhorn, sumSharedA, sumSharedB, a, b, d;
  20                 morhorn = 0.0; sumSharedA = 0.0; sumSharedB = 0.0; a = 0.0; b = 0.0; d = 0.0;
  21
  22                 //get the total values we need to calculate the theta denominator sums
  23                 for (int i = 0; i < shared[0]->getNumBins(); i++) {
  24                         //store in temps to avoid multiple repetitive function calls
  25                         Atotal += shared[0]->getAbundance(i);
  26                         Btotal += shared[1]->getAbundance(i);
  27                 }
  28
  29                 //calculate the denominator sums
  30                 for (int j = 0; j < shared[0]->getNumBins(); j++) {
  31                         //store in temps to avoid multiple repetitive function calls
  32                         tempA = shared[0]->getAbundance(j);
  33                         tempB = shared[1]->getAbundance(j);
  34                         float relA = tempA / Atotal;
  35                         float relB = tempB / Btotal;
  36
  37                         a += relA * relA;
  38                         b += relB * relB;
  39                         d += relA * relB;
  40                 }
  41
  42                 morhorn = 1- (2 * d) / (a + b);
  43
  44                 if (isnan(morhorn) || isinf(morhorn)) { morhorn = 1; }
  45
  46                 data[0] = morhorn;
  47
  48                 return data;
  49         }
  50         catch(exception& e) {
  51                 m->errorOut(e, "MorHorn", "getValues");
  52                 exit(1);
  53         }
  54 }
  55
  56 /***********************************************************************/