diff --git a/simulationcore_purrr.R b/simulationcore_purrr.R index f390ee98c05afcb2a07ed3d6756558134be9c300..9c7c8f0ceb84968373ebaa8ff65e8ef648d4ca13 100644 --- a/simulationcore_purrr.R +++ b/simulationcore_purrr.R @@ -25,9 +25,9 @@ designname <- str_remove_all(list.files(designpath,full.names = F), tictoc::tic() -browser() + if (!exists("destype")) destype="ngene" -browser() + all_designs<- purrr::map(designfile, sim_choice, no_sim= nosim,respondents = resps, mnl_U = mnl_U, destype=destype) %>% setNames(designname)