From 22d689c1c4ef6e4477690f680dc1109097982908 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Fri, 15 Jan 2021 11:46:11 +0100
Subject: [PATCH] Fixed function output

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

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