[Lme4-commits] r1752 - pkg/lme4/R

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

Author: dmbates
Date: 2012-05-18 23:37:45 +0200 (Fri, 18 May 2012)
New Revision: 1752

Modified:
   pkg/lme4/R/lmer.R
Log:
Document an argument in profile.  Create and export an S3 method family.nlsResp


Modified: pkg/lme4/R/lmer.R
===================================================================
--- pkg/lme4/R/lmer.R	2012-05-18 21:37:31 UTC (rev 1751)
+++ pkg/lme4/R/lmer.R	2012-05-18 21:37:45 UTC (rev 1752)
@@ -885,11 +885,14 @@
 ##' @S3method family merMod
 family.merMod <- function(object, ...) family(object at resp, ...)
 
+##' @S3method family glmResp
+family.glmResp <- function(object, ...) object$family
+
 ##' @S3method family lmResp
 family.lmResp <- function(object, ...) gaussian()
 
-##' @S3method family glmResp
-family.glmResp <- function(object, ...) object$family
+##' @S3method family nlsResp
+family.nlsResp <- function(object, ...) gaussian()
 
 ##' @importFrom stats fitted
 ##' @S3method fitted merMod
@@ -1816,7 +1819,7 @@
     REML <- isREML(object)
 
     link <- fam <- NULL
-    if(is(resp, "glmerResp")) {  ## FIXME: ?? should be "glmResp", or?? isGLMM(object) ??
+    if(is(resp, "glmResp")) {
         fam <- resp$family$family
         link <- resp$family$link
     }