From 4087cb0b01825138cdd48982d24178af64f42013 Mon Sep 17 00:00:00 2001
From: Sam Brilleman <louis-george@hotmail.com>
Date: Tue, 24 Sep 2019 10:16:58 +1000
Subject: [PATCH] Drop thin argument when obtaining initial values for stan_jm

---
 R/stan_jm.fit.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/stan_jm.fit.R b/R/stan_jm.fit.R
index 9cc1d3fb2..160a8cb82 100644
--- 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)