dots arguments in estimate.default can now also be numeric vectors (r…

…ows in contrast matrix as interpreted by parsedesign)
kkholst · Mar 9, 2017 · 5f62419 · 5f62419
1 parent dfec748
commit 5f62419
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/estimate.default.R b/R/estimate.default.R
@@ -199,7 +199,7 @@ estimate.default <- function(x=NULL,f=NULL,...,data,id,
         }
     }
     if (!missing(cluster)) id <- cluster
-    if (expr || is.character(f)) { ## || is.call(f)) {
+    if (expr || is.character(f) || (is.numeric(f) && !is.matrix(f))) { ## || is.call(f)) {
         dots <- lapply(substitute(placeholder(...))[-1],function(x) x)
         args <- c(list(coef=names(pp),x=substitute(f)),dots)
         f <- do.call(parsedesign,args)