Revert to previous commit

[mothur.git] / bergerparker.cpp

diff --git a/bergerparker.cpp b/bergerparker.cpp
new file mode 100644 (file)
index 0000000..d00403c
--- /dev/null
+++ b/bergerparker.cpp
@@ -0,0 +1,32 @@
+/*
+ *  ssbp.cpp
+ *  Mothur
+ *
+ *  Created by Thomas Ryabin on 3/6/09.
+ *  Copyright 2009 Schloss Lab UMASS Amherst. All rights reserved.
+ *
+ */
+
+#include "bergerparker.h"
+
+/***************************************************************/
+
+EstOutput BergerParker::getValues(SAbundVector* rank){
+       try {
+               data.resize(1,0);
+               //Berger-Parker index
+               double BP = (double)rank->getMaxRank() / (double)rank->getNumSeqs();
+               
+               data[0] = BP;
+               if (isnan(data[0]) || isinf(data[0])) { data[0] = 0; }
+
+               return data;
+       }
+       catch(exception& e) {
+               m->errorOut(e, "BergerParker", "getValues");
+               exit(1);
+       }
+}
+
+/***********************************************************************/
+