diff --git a/R/greedyMix.R b/R/greedyMix.R
index 6fc17ce..4a04b20 100644
--- a/R/greedyMix.R
+++ b/R/greedyMix.R
@@ -27,7 +27,7 @@ greedyMix <- function(
     )
   }
   # Generating partition summary ===============================================
-  logml_npops_partitionSummary <- indMixWrapper(c);
+  logml_npops_partitionSummary <- indMixWrapper(data, npops, fixedK);
   logml <- logml_npops_partitionSummary[["logml"]]
   npops <- logml_npops_partitionSummary[["npops"]]
   partitionSummary <- logml_npops_partitionSummary[["partitionSummary"]]
diff --git a/R/indMixWrapper.R b/R/indMixWrapper.R
index c4fe8ba..256b6c4 100644
--- a/R/indMixWrapper.R
+++ b/R/indMixWrapper.R
@@ -1,7 +1,7 @@
-indMixWrapper <- function(fixedK = FALSE) {
+indMixWrapper <- function(c, npops, fixedK = FALSE) {
   if (fixedK) {
-    indMix(c, npops, TRUE)
-  } else {
     stop("indMix_fixK() not yet implemented.") # TODO: translate indMix_fixK.m
+  } else {
+    indMix(c, npops, TRUE)
   }
 }