From f381f9a6a8a47b89ec25cd627833a7248da7932b Mon Sep 17 00:00:00 2001
From: ranke <ranke@5fad18fb-23f0-0310-ab10-e59a3bee62b4>
Date: Tue, 23 May 2006 07:33:22 +0000
Subject: Don't do calplot and lod for linear models from weighted regression
 any more, since this is not supported (PR#8877).

git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/chemCal@13 5fad18fb-23f0-0310-ab10-e59a3bee62b4
---
 R/inverse.predict.lm.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R/inverse.predict.lm.R')

diff --git a/R/inverse.predict.lm.R b/R/inverse.predict.lm.R
index e5f014c..8352c26 100644
--- a/R/inverse.predict.lm.R
+++ b/R/inverse.predict.lm.R
@@ -59,7 +59,7 @@ inverse.predict.rlm <- function(object, newdata, ...,
 
   yx <- split(object$model[[yname]],object$model[[xname]])
   n <- length(yx)
-  df <- n - length(objects$coef)
+  df <- n - length(object$coef)
   x <- as.numeric(names(yx))
   ybar <- sapply(yx,mean)
   yhatx <- split(object$fitted.values,object$model[[xname]])
-- 
cgit v1.2.1