Drop thin argument when obtaining initial values for stan_jm

stan-dev · Sep 24, 2019 · 4087cb0 · 4087cb0
1 parent 5d91237
commit 4087cb0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/stan_jm.fit.R b/R/stan_jm.fit.R
@@ -613,7 +613,7 @@ stan_jm.fit <- function(formulaLong = NULL, dataLong = NULL, formulaEvent = NULL
     # - obtaining initial values for joint model parameters
     # - obtaining appropriate scaling for priors on association parameters
     vbdots <- list(...)
-    dropargs <- c("chains", "cores", "iter", "refresh", "test_grad", "control")
+    dropargs <- c("chains", "cores", "iter", "refresh", "thin", "test_grad", "control")
     for (i in dropargs) 
       vbdots[[i]] <- NULL
     vbpars <- pars_to_monitor(standata, is_jm = FALSE)