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 841, Tue Aug 9 14:21:32 2005 UTC revision 842, Tue Aug 9 14:23:37 2005 UTC
# Line 897  Line 897 
897            }            }
898            gnms <- names(obj@flist)            gnms <- names(obj@flist)
899            cnms <- obj@cnames            cnms <- obj@cnames
900            colnames(ans) <- c(names(fixef(obj)), "sigma^2",            ff <- fixef(obj)
901              colnms <- c(names(ff), "sigma^2",
902                               unlist(lapply(seq(along = gnms),                               unlist(lapply(seq(along = gnms),
903                                             function(i)                                             function(i)
904                                             abbrvNms(gnms[i],cnms[[i]]))))                                             abbrvNms(gnms[i],cnms[[i]]))))
905              if (trans) {
906                  ## parameter type: 0 => fixed effect, 1 => variance,
907                  ##                 2 => covariance
908                  ptyp <- c(integer(length(ff)), 1:1,
909                            unlist(lapply(seq(along = gnms),
910                                          function(i)
911                                      {
912                                          k <- length(cnms[[i]])
913                                          rep(1:2, c(k, (k*(k-1))/2))
914                                      })))
915                  colnms[ptyp == 1] <-
916                      paste("log(", colnms[ptyp == 1], ")", sep = "")
917                  colnms[ptyp == 2] <-
918                      paste("atanh(", colnms[ptyp == 2], ")", sep = "")
919              }
920              colnames(ans) <- colnms
921            ans            ans
922        })        })
923    

Legend:
Removed from v.841  
changed lines
  Added in v.842

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