diff --git a/R/sim_all.R b/R/sim_all.R
index 9893ba237008ed567bb942a587ce270796ea2b3e..c2ff269405b069ff31f42a7c4c499b175c9e8aab 100644
--- a/R/sim_all.R
+++ b/R/sim_all.R
@@ -165,15 +165,16 @@ sim_all <- function(nosim = 2,
 
 
 
-    summaryall <- as.data.frame(purrr::map(all_designs, ~ .x$summary)) %>%
-      dplyr::select(!dplyr::ends_with("vars")) %>%
-      tibble::rownames_to_column("parname") %>%
-      dplyr::mutate(parname = stringr::str_remove(parname, "^est_")) %>%
-      dplyr::left_join(data.frame(truepar = unlist(bcoeff)) %>% tibble::rownames_to_column("parname"),
-                       by="parname") %>%
-      dplyr::relocate(parname, dplyr::ends_with(c(
-        ".n", "truepar", "mean", "sd", "min" , "max", "range" , "se"
-      )))
+summaryall <- as.data.frame(purrr::map(all_designs, ~ .x$summary)) %>%
+  dplyr::select(!dplyr::ends_with("vars")) %>%
+  tibble::rownames_to_column("parname") %>%
+  dplyr::mutate(parname = stringr::str_remove(parname, "^est_")) %>%
+  dplyr::left_join(data.frame(truepar = unlist(bcoeff)) %>% tibble::rownames_to_column("parname") %>%
+                     dplyr::mutate(parname=stringr::str_replace_all(parname,"\\.","_")),   ##because parameters have been renamed for mixl, we have to make sure we substitute all . with _
+                   by="parname") %>%
+  dplyr::relocate(parname, dplyr::ends_with(c(
+    ".n", "truepar", "mean", "sd", "min" , "max", "range" , "se"
+  )))
 
     coefall <- purrr::map(all_designs, ~ .x$coefs)
 
diff --git a/tests/manual-tests/SE_Drive.R b/tests/manual-tests/SE_Drive.R
index 8943e7b08c11ec51a204931dd9ddb619e061e5d6..9b844e32f54162efa5940a8adca6dc6f427e4ed6 100644
--- a/tests/manual-tests/SE_Drive.R
+++ b/tests/manual-tests/SE_Drive.R
@@ -2,7 +2,7 @@
 
 rm(list=ls())
 devtools::load_all()
-
+library(rlang)
 
 
 designpath<- system.file("extdata","SE_DRIVE" ,package = "simulateDCE")
diff --git a/tests/manual-tests/feedadditives.R b/tests/manual-tests/feedadditives.R
index 23f91a7b78e8a6fbd57848a52a2dd9b8c020402a..7d54a512a4a19b1fcecb1679b0f190768a73ad37 100644
--- a/tests/manual-tests/feedadditives.R
+++ b/tests/manual-tests/feedadditives.R
@@ -7,7 +7,7 @@ designpath<- system.file("extdata","feedadditives" ,package = "simulateDCE")
 
 notes <- "Three heuristics"
 
-resps =300  # number of respondents
+resps =396  # number of respondents
 nosim=2 # number of simulations to run (about 500 is minimum)
 destype = "ngene"