X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=bergerparker.cpp;fp=bergerparker.cpp;h=d00403c9edc8d236ef9cd1cf02dc179001573d75;hb=0caf3fbabaa3ece404f8ce77f4c883dc5b1bf1dc;hp=0000000000000000000000000000000000000000;hpb=1b73ff67c83892a025e597dabd9df6fe7b58206a;p=mothur.git

diff --git a/bergerparker.cpp b/bergerparker.cpp
new file mode 100644
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);
+	}
+}
+
+/***********************************************************************/
+