SCM

SCM Repository

[matrix] Diff of /pkg/R/lmer.R
ViewVC logotype

Diff of /pkg/R/lmer.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 689, Sat Apr 2 14:41:46 2005 UTC revision 690, Tue Apr 5 22:17:04 2005 UTC
# Line 467  Line 467 
467                                  check.names = FALSE)                                  check.names = FALSE)
468                class(val) <- c("anova", class(val))                class(val) <- c("anova", class(val))
469                attr(val, "heading") <-                attr(val, "heading") <-
470                    c(header, "", "Models:",                    c(header, "Models:",
471                      paste(names(mods),                      paste(names(mods),
472                            unlist(lapply(lapply(calls, "[[", "formula"), deparse)),                            unlist(lapply(lapply(calls, "[[", "formula"), deparse)),
473                            sep = ": "),"")                            sep = ": "))
474                return(val)                return(val)
475            } else {            } else {
476                foo <- object                foo <- object
# Line 704  Line 704 
704        })        })
705    
706  setMethod("with", signature(data = "lmer"),  setMethod("with", signature(data = "lmer"),
707            function(data, expr, ...)            function(data, expr, ...) {
708                eval(substitute(substitute(expr, list(. = quote(data))),            lst <- c(list(. = data), data@flist, eval(data@call$data))
709                                append(data@flist, eval(data@call$data)),            eval(substitute(expr), lst[unique(names(lst))])})
710                                enclos = parent.frame())  
           })  

Legend:
Removed from v.689  
changed lines
  Added in v.690

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge