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 /tests/massart97.R | |
| 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 'tests/massart97.R')
| -rw-r--r-- | tests/massart97.R | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/massart97.R b/tests/massart97.R index 58119d9..00f837f 100644 --- a/tests/massart97.R +++ b/tests/massart97.R @@ -1,4 +1,10 @@ require(chemCal) +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 + data(massart97ex3) attach(massart97ex3) yx <- split(y, x) |