ourMELONS/R/indMixWrapper.R

indMixWrapper <- function(c, npops, fixedK = FALSE) {
  if (fixedK) {
    stop("indMix_fixK() not yet implemented.") # TODO: translate indMix_fixK.m
  } else {
    indMix(c, npops, TRUE)
  }
}
Syntax fix to indMix() (#25) 2023-08-09 13:12:18 +02:00			`indMixWrapper <- function(c, npops, fixedK = FALSE) {`
Incorporating subfunctions of greedyMix() (#25) 2023-08-09 12:06:09 +02:00			`if (fixedK) {`
			`stop("indMix_fixK() not yet implemented.") # TODO: translate indMix_fixK.m`
Syntax fix to indMix() (#25) 2023-08-09 13:12:18 +02:00			`} else {`
			`indMix(c, npops, TRUE)`
Incorporating subfunctions of greedyMix() (#25) 2023-08-09 12:06:09 +02:00			`}`
			`}`