diff options
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) |