Fixed unnecessary linebreak for ML method

Rapporter · Jun 1, 2014 · 784ca3c · 784ca3c
1 parent a5045bc
commit 784ca3c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/S3.R b/R/S3.R
@@ -434,7 +434,7 @@ pander.lme <- function(x, caption = attr(x, 'caption'), summary = FALSE, ...) {
   if (is.null(caption)) {
     if (is.null(storage$caption))
       caption <- sprintf('Linear mixed-effects model fit by %s : %s', 
-                         paste(sub('^[ ]*', '', ifelse(x$method == "REML", "REML", "maximum likelihood\n"))),
+                         paste(sub('^[ ]*', '', ifelse(x$method == "REML", "REML", "maximum likelihood"))),
                          paste(sub('^[ ]*', '', deparse(x$call$fixed)), collapse = ''))
     else
       caption <- get.caption()