2023-08-09 14:45:43 +02:00
|
|
|
indMixWrapper <- function(c, npops, counts, sumcounts, max_iter, fixedK = FALSE, verbose = FALSE) {
|
2023-08-09 12:06:09 +02:00
|
|
|
if (fixedK) {
|
|
|
|
|
stop("indMix_fixK() not yet implemented.") # TODO: translate indMix_fixK.m
|
2023-08-09 13:12:18 +02:00
|
|
|
} else {
|
2023-08-09 14:45:43 +02:00
|
|
|
indMix(c, npops, counts, sumcounts, max_iter, verbose)
|
2023-08-09 12:06:09 +02:00
|
|
|
}
|
|
|
|
|
}
|
