diff options
Diffstat (limited to 'man/inverse.predict.Rd')
-rw-r--r-- | man/inverse.predict.Rd | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/man/inverse.predict.Rd b/man/inverse.predict.Rd index 8c2be9c..5be0250 100644 --- a/man/inverse.predict.Rd +++ b/man/inverse.predict.Rd @@ -57,14 +57,14 @@ p. 200 } \examples{ -data(massart97ex3) -attach(massart97ex3) -yx <- split(y,factor(x)) -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,factor(x)) + 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) + inverse.predict(m,15,ws = 1.67) } \keyword{manip} |