diff options
author | ranke <ranke@5fad18fb-23f0-0310-ab10-e59a3bee62b4> | 2006-06-23 16:42:10 +0000 |
---|---|---|
committer | ranke <ranke@5fad18fb-23f0-0310-ab10-e59a3bee62b4> | 2006-06-23 16:42:10 +0000 |
commit | f4443942f10740ecc62b928181a1911ef14eeb04 (patch) | |
tree | 9f88ae546732b6db48db96c3372f394665684988 /man/inverse.predict.Rd | |
parent | 7889cda8d4133e68b07e7b204cd75295e0b348ee (diff) |
Added the data from Massart example 1, and one more
tests showing the validity of inverse.predict.
git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/chemCal@18 5fad18fb-23f0-0310-ab10-e59a3bee62b4
Diffstat (limited to 'man/inverse.predict.Rd')
-rw-r--r-- | man/inverse.predict.Rd | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/man/inverse.predict.Rd b/man/inverse.predict.Rd index 6bea72c..347d670 100644 --- a/man/inverse.predict.Rd +++ b/man/inverse.predict.Rd @@ -59,15 +59,11 @@ p. 200 } \examples{ -data(massart97ex3) -attach(massart97ex3) -yx <- split(y, x) -ybar <- sapply(yx, mean) -s <- round(sapply(yx, sd), digits = 2) -w <- round(1 / (s^2), digits = 3) -weights <- w[factor(x)] -m <- lm(y ~ x, w = weights) - -inverse.predict(m, 15, ws = 1.67) # 5.9 +- 2.5 +# This is example 7 from Chapter 8 in Massart et al. (1997) +data(massart97ex1) +m <- lm(y ~ x, data = massart97ex1) +inverse.predict(m, 15) # 6.1 +- 4.9 +inverse.predict(m, 90) # 43.9 +- 4.9 +inverse.predict(m, rep(90,5)) # 43.9 +- 3.2 } \keyword{manip} |