force adapt to be > 200 when an adaptive phase is used

armstrtw · Apr 27, 2012 · 3d5495e · 3d5495e
1 parent 2b73a76
commit 3d5495e
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/cppbugs.R b/R/cppbugs.R
@@ -47,6 +47,9 @@ create.model <- function(...) {
 }
 
 run.model <- function(m, iterations, burn, adapt, thin) {
+    if(adapt != 0 && adapt < 200) {
+        stop("if adapt != 0, it must be at least 200.  Turn adapt off by setting it adapt = 0.")
+    }
     .Call("runModel", m, iterations, burn, adapt, thin, PACKAGE="rcppbugs")
 }