From e3bf5f0f34225e51209f11dacd8eb20c36966146 Mon Sep 17 00:00:00 2001
From: Francois Ribalet <ribalet@uw.edu>
Date: Thu, 26 Jun 2014 10:46:54 -0700
Subject: [PATCH] Update CytoDiv.R

---
 R/CytoDiv.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/CytoDiv.R b/R/CytoDiv.R
index a41042f..b837eaa 100644
--- a/R/CytoDiv.R
+++ b/R/CytoDiv.R
@@ -16,7 +16,7 @@ cytoDiv <- function(df, para, Ncat, log=TRUE){
         J = log(N1)/log(N0) # Evenness
         
         # output
-        indices <- data.frame(cbind(N0, H, J))
+        indices <- data.frame(cbind(N0, N1, H, J))
         return(indices)