diff --git a/R/indMix.R b/R/indMix.R index 4cd1212..ae1eb6f 100644 --- a/R/indMix.R +++ b/R/indMix.R @@ -178,7 +178,7 @@ indMix <- function(c, npops, dispText) { partitionSummary_added = addToSummary( logml, partitionSummary, worstIndex ) - partitionSummary_added <- partitionSummary_added$partitionSummary + partitionSummary <- partitionSummary_added$partitionSummary added <- partitionSummary_added$added if (added == 1) { worstLogml <- min_MATLAB(partitionSummary[, 2])[[1]] @@ -480,7 +480,7 @@ indMix <- function(c, npops, dispText) { partitionSummary_added = addToSummary( logml, partitionSummary, worstIndex ) - partitionSummary_added <- partitionSummary_added$partitionSummary + partitionSummary <- partitionSummary_added$partitionSummary added <- partitionSummary_added$added if (added == 1) { worstLogml <- min_MATLAB(partitionSummary[, 2])[[1]]