From a73752364b8b37b52e6d7e3d5e49a13056cb9721 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Thu, 14 Sep 2023 11:02:06 +0200
Subject: [PATCH] Fixed output of greedyMix()

---
 R/greedyMix.R        | 2 +-
 R/writeMixtureInfo.R | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/R/greedyMix.R b/R/greedyMix.R
index 53f3270..3b81b81 100644
--- a/R/greedyMix.R
+++ b/R/greedyMix.R
@@ -73,5 +73,5 @@ greedyMix <- function(
   )
 
   # Updateing results ==========================================================
-  return(c(out, "changesInLogml" = changesInLogml))
+  return(c(out, list("changesInLogml" = changesInLogml)))
 }
diff --git a/R/writeMixtureInfo.R b/R/writeMixtureInfo.R
index 97f2401..fd2e6ef 100644
--- a/R/writeMixtureInfo.R
+++ b/R/writeMixtureInfo.R
@@ -15,7 +15,6 @@ writeMixtureInfo <- function(
   logml, rowsFromInd, data, adjprior, priorTerm, outPutFile, inputFile,
   partitionSummary, popnames, fixedK, verbose
 ) {
-  changesInLogml <- list()
   ninds <- size(data, 1) / rowsFromInd
   npops <- size(COUNTS, 3)
   # Check that the names refer to individuals