diff --git a/R/sim_all.R b/R/sim_all.R
index 16d9e489ab0b8cadaaf2c09c6283603a6e3185f6..9893ba237008ed567bb942a587ce270796ea2b3e 100644
--- a/R/sim_all.R
+++ b/R/sim_all.R
@@ -165,13 +165,13 @@ sim_all <- function(nosim = 2,
 
 
 
-
-
-    summaryall <- data.frame(truepar = as.double(c(bcoeff, rep(
-      NA, length(bcoeff)
-    ))), as.data.frame(purrr::map(all_designs, ~ .x$summary))) %>%
+    summaryall <- as.data.frame(purrr::map(all_designs, ~ .x$summary)) %>%
       dplyr::select(!dplyr::ends_with("vars")) %>%
-      dplyr::relocate(truepar, dplyr::ends_with(c(
+      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"
       )))