diff options
author | lpautrel <lea.pautrel@terroiko.fr> | 2023-12-01 14:37:31 +0100 |
---|---|---|
committer | lpautrel <lea.pautrel@terroiko.fr> | 2023-12-01 14:37:31 +0100 |
commit | e5564064b715d149c450d0f56128a1197827b835 (patch) | |
tree | d8b3187820de9cdb14dcc8e32d6d094b4f6cc5d0 | |
parent | 92d8b8fa68eb7c1ed7c1f92e139cd401c8e4671b (diff) |
Add set.seed in simulate
-rw-r--r-- | R/simulate.R | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/R/simulate.R b/R/simulate.R index a8887cb..9d93af9 100644 --- a/R/simulate.R +++ b/R/simulate.R @@ -61,6 +61,7 @@ blank_umFit <- function(fit_function){ setMethod("simulate", "character", function(object, nsim=1, seed=NULL, formulas, coefs=NULL, design, guide=NULL, ...){ + set.seed(seed) model <- blank_umFit(object) fit <- suppressWarnings(simulate_fit(model, formulas, guide, design, ...)) coefs <- check_coefs(coefs, fit) |