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