max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Fixed calculation og ninds (#24)

Browse source
This commit is contained in:
Waldir Leoncio 2024-04-08 10:11:25 +02:00
parent 5c35b9ad1e
commit 6c3e2aff04
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
R/greedyMix.R
View file

@ -53,6 +53,7 @@ greedyMix <- function(
} }
# Comparing partitions ======================================================= # Comparing partitions =======================================================
ninds <- length(unique(c[["data"]][, ncol(c[["data"]])]))
if (!is.null(partitionCompare)) { if (!is.null(partitionCompare)) {
logmls <- comparePartitions( logmls <- comparePartitions(
c[["data"]], nrow(c[["data"]]), partitionCompare[["partitions"]], ninds, c[["data"]], nrow(c[["data"]]), partitionCompare[["partitions"]], ninds,
@ -61,7 +62,6 @@ greedyMix <- function(
} }
# Generating partition summary =============================================== # Generating partition summary ===============================================
ninds <- length(unique(data$data[, ncol(data$data)]))
ekat <- seq(1L, ninds * c[["rowsFromInd"]], c[["rowsFromInd"]]) ekat <- seq(1L, ninds * c[["rowsFromInd"]], c[["rowsFromInd"]])
c[["rows"]] <- cbind(ekat, ekat + c[["rowsFromInd"]] - 1L) c[["rows"]] <- cbind(ekat, ekat + c[["rowsFromInd"]] - 1L)
logml_npops_partitionSummary <- indMixWrapper(c, npops, counts, sumcounts, max_iter, fixedK, verbose) logml_npops_partitionSummary <- indMixWrapper(c, npops, counts, sumcounts, max_iter, fixedK, verbose)