diff --git a/R/initialCounts.R b/R/initialCounts.R
index 9638e78..6efe2e9 100644
--- a/R/initialCounts.R
+++ b/R/initialCounts.R
@@ -21,5 +21,5 @@ initialCounts <- function(partition, data, npops, rows, noalle, adjprior) {
 		}
 	}
 	logml <- laskeLoggis(counts, sumcounts, adjprior)
-	return(logml)
+	return(list(sumcounts = sumcounts, counts = counts, logml = logml))
 }
\ No newline at end of file