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}