diff --git a/R/sim_choice.R b/R/sim_choice.R
index d07956735f4aa75125028cc6f055de3b30d23c1e..848f62a6e8afcbebdd20b0ea83eed3953bf718f2 100644
--- a/R/sim_choice.R
+++ b/R/sim_choice.R
@@ -141,7 +141,7 @@ designs_all <- list()
   return(output)
 } else {
 
-  output<- 1:no_sim %>% purrr::map(datadet, utility = ut, setspp=setpp, bcoefficients = bcoefficients, decisiongroups = decisiongroups, manipulations = manipulations)
+  output<- 1:no_sim %>% purrr::map(~ simulate_choices(datadet, utility = ut, setspp=setpp, bcoefficients = bcoefficients, decisiongroups = decisiongroups, manipulations = manipulations))
   return(output)
 
 }