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 1169, Mon Jan 16 14:41:55 2006 UTC revision 1170, Mon Jan 16 16:38:00 2006 UTC
# Line 378  Line 378 
378            function(object, n = 1, verbose = FALSE, saveb = FALSE,            function(object, n = 1, verbose = FALSE, saveb = FALSE,
379                     trans = TRUE, ...)                     trans = TRUE, ...)
380        {        {
381              family <- object$family
382              lmm <- family$family == "gaussian" && family$link == "identity"
383              if (!lmm)
384                  stop("mcmcsamp for GLMMs not yet implemented in supernodal representation")
385            ans <- t(.Call("mer_MCMCsamp", object, saveb, n,            ans <- t(.Call("mer_MCMCsamp", object, saveb, n,
386                           trans, PACKAGE = "Matrix"))                           trans, PACKAGE = "Matrix"))
387            attr(ans, "mcpar") <- as.integer(c(1, n, 1))            attr(ans, "mcpar") <- as.integer(c(1, n, 1))

Legend:
Removed from v.1169  
changed lines
  Added in v.1170

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