[Lme4-commits] r1533 - branches/roxygen/R

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

Author: dmbates
Date: 2012-01-29 00:26:56 +0100 (Sun, 29 Jan 2012)
New Revision: 1533

Modified:
   branches/roxygen/R/profile.R
Log:
Fix documentation.


Modified: branches/roxygen/R/profile.R
===================================================================
--- branches/roxygen/R/profile.R	2012-01-28 23:26:34 UTC (rev 1532)
+++ branches/roxygen/R/profile.R	2012-01-28 23:26:56 UTC (rev 1533)
@@ -16,7 +16,8 @@
 ##' @param \dots potential further arguments for \code{profile} methods.
 ##' @section Methods: FIXME: These (signatures) will change soon --- document
 ##' \bold{after} change!
-##' \describe{ \item{list("signature(fitted = \"merMod\")")}{ ...  } }
+##' \describe{
+##'     \item{signature(fitted = \"merMod\")}{ ...  } }
 ##' @seealso For (more expensive) alternative confidence intervals:
 ##' \code{\link{bootMer}}.
 ##' @keywords methods
@@ -589,6 +590,8 @@
         for (nm in colnames(x)[sigs]) {
             x[[nm]] <- log(x[[nm]], base = base)
             fr <- subset(x, .par == nm & is.finite(x[[nm]]))
+            ## FIXME: avoid subset for global-variable false positive
+            ## fr <- x[x$.par == nm & is.finite(x[[nm]]),]
             form <- eval(substitute(.zeta ~ nm, list(nm = as.name(nm))))
             attr(x, "forward")[[nm]] <- interpSpline(form, fr)
             attr(x, "backward")[[nm]] <- backSpline(attr(x, "forward")[[nm]])