[Lme4-commits] r1605 - pkg/lme4Eigen/R

[noreply at r-forge.r-project.org]

Author: dmbates
Date: 2012-02-21 16:59:21 +0100 (Tue, 21 Feb 2012)
New Revision: 1605

Modified:
   pkg/lme4Eigen/R/profile.R
Log:
Correct stip labels for logarithms of variance component parameters.


Modified: pkg/lme4Eigen/R/profile.R
===================================================================
--- pkg/lme4Eigen/R/profile.R	2012-02-21 15:52:41 UTC (rev 1604)
+++ pkg/lme4Eigen/R/profile.R	2012-02-21 15:59:21 UTC (rev 1605)
@@ -251,11 +251,16 @@
 stripExpr <- function(ll, nms) {
     stopifnot(inherits(ll, "list"), is.character(nms))
     sigNm <- which(nms == ".sigma")
+    lsigNm <- which(nms == ".lsigma")
     sigNms <- grep("^.sig[0-9]+", nms)
     sigsub <- as.integer(substring(nms[sigNms], 5))
+    lsigNms <- grep("^.lsig[0-9]+", nms)
+    lsigsub <- as.integer(substring(nms[lsigNms], 6))
     fLevs <- as.expression(nms)
     fLevs[sigNm] <- expression(sigma)
+    fLevs[lsigNm] <- expression(log(sigma))
     fLevs[sigNms] <- parse(text=paste("sigma[", sigsub, "]"))
+    fLevs[lsigNms] <- parse(text=paste("log(sigma[", lsigsub, "])"))
     levsExpr <- substitute(strip.custom(factor.levels=foo), list(foo=fLevs))
     llNms <- names(ll)
     snames <- c("strip", "strip.left")