diff options
author | ranke <ranke@5fad18fb-23f0-0310-ab10-e59a3bee62b4> | 2006-06-23 16:06:54 +0000 |
---|---|---|
committer | ranke <ranke@5fad18fb-23f0-0310-ab10-e59a3bee62b4> | 2006-06-23 16:06:54 +0000 |
commit | 7889cda8d4133e68b07e7b204cd75295e0b348ee (patch) | |
tree | d60559caef78d590042a7cf3a7b8bfc527a7d04c /man/inverse.predict.Rd | |
parent | 9e0dae397df8c18e7333d2604cae96b2a7927420 (diff) |
Some cosmetic changes, and the vignette created during package building.
git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/chemCal@17 5fad18fb-23f0-0310-ab10-e59a3bee62b4
Diffstat (limited to 'man/inverse.predict.Rd')
-rw-r--r-- | man/inverse.predict.Rd | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/man/inverse.predict.Rd b/man/inverse.predict.Rd index 925f3e9..6bea72c 100644 --- a/man/inverse.predict.Rd +++ b/man/inverse.predict.Rd @@ -59,15 +59,15 @@ 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) +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 +inverse.predict(m, 15, ws = 1.67) # 5.9 +- 2.5 } \keyword{manip} |