diff options
| author | ranke <ranke@5fad18fb-23f0-0310-ab10-e59a3bee62b4> | 2006-05-23 07:33:22 +0000 |
|---|---|---|
| committer | ranke <ranke@5fad18fb-23f0-0310-ab10-e59a3bee62b4> | 2006-05-23 07:33:22 +0000 |
| commit | f381f9a6a8a47b89ec25cd627833a7248da7932b (patch) | |
| tree | 3155c1f5b2f5810a453aa8cb8a8f44f5920b01e8 /R/inverse.predict.lm.R | |
| parent | e12be874ff477509b737ad09bf05144a7fbedac2 (diff) | |
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
Diffstat (limited to 'R/inverse.predict.lm.R')
| -rw-r--r-- | R/inverse.predict.lm.R | 2 |
1 files changed, 1 insertions, 1 deletions
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]]) |