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

Syntax fix to indMix() (#25)

Browse source
This commit is contained in:
Waldir Leoncio 2023-08-09 13:12:18 +02:00
parent 3069577ebd
commit ba968e77d5
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
R/greedyMix.R
View file

@ -27,7 +27,7 @@ greedyMix <- function(
) )
} }
# Generating partition summary =============================================== # Generating partition summary ===============================================
logml_npops_partitionSummary <- indMixWrapper(c); logml_npops_partitionSummary <- indMixWrapper(data, npops, fixedK);
logml <- logml_npops_partitionSummary[["logml"]] logml <- logml_npops_partitionSummary[["logml"]]
npops <- logml_npops_partitionSummary[["npops"]] npops <- logml_npops_partitionSummary[["npops"]]
partitionSummary <- logml_npops_partitionSummary[["partitionSummary"]] partitionSummary <- logml_npops_partitionSummary[["partitionSummary"]]

6
R/indMixWrapper.R
View file

@ -1,7 +1,7 @@
indMixWrapper <- function(fixedK = FALSE) { indMixWrapper <- function(c, npops, fixedK = FALSE) {
if (fixedK) { if (fixedK) {
indMix(c, npops, TRUE)
} else {
stop("indMix_fixK() not yet implemented.") # TODO: translate indMix_fixK.m stop("indMix_fixK() not yet implemented.") # TODO: translate indMix_fixK.m
} else {
indMix(c, npops, TRUE)
} }
} }