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

3 files changed, 26 insertions, 13 deletions

diff --git a/man/calplot.lm.Rd b/man/calplot.lm.Rd
index bf3f616..6f6d584 100644
--- a/man/calplot.lm.Rd
+++ b/man/calplot.lm.Rd
@@ -45,9 +45,9 @@
 \note{
   Prediction bands for models from weighted linear regression require weights
   for the data, for which responses should be predicted. Prediction intervals
-  for weighted models are not currently supported by the internally used
-  function \code{\link{predict.lm}}, therefore, \code{calplot} refuses to work
-  for such models.
+  using weights e.g. from a variance function are currently not supported by
+  the internally used function \code{\link{predict.lm}}, therefore,
+  \code{calplot} does not draw prediction bands for such models.
 }
 \examples{
 data(massart97ex3)
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}
diff --git a/man/massart97ex1.Rd b/man/massart97ex1.Rd
new file mode 100644
index 0000000..44e1b85
--- /dev/null
+++ b/man/massart97ex1.Rd
@@ -0,0 +1,17 @@
+\name{massart97ex1}
+\docType{data}
+\alias{massart97ex1}
+\title{Calibration data from Massart et al. (1997), example 1}
+\description{
+  Sample dataset from p. 175 to test the package.
+}
+\usage{data(massart97ex1)}
+\format{
+  A dataframe containing 6 observations of x and y data.
+}
+\source{
+  Massart, L.M, Vandenginste, B.G.M., Buydens, L.M.C., De Jong, S., Lewi, P.J.,
+  Smeyers-Verbeke, J. (1997) Handbook of Chemometrics and Qualimetrics: Part A,
+  Chapter 8.
+}
+\keyword{datasets}