diff options
Diffstat (limited to 'vignettes/chemCal.R')
-rw-r--r-- | vignettes/chemCal.R | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/vignettes/chemCal.R b/vignettes/chemCal.R deleted file mode 100644 index d9015e9..0000000 --- a/vignettes/chemCal.R +++ /dev/null @@ -1,23 +0,0 @@ -## ------------------------------------------------------------------------ -library(chemCal) -m0 <- lm(y ~ x, data = massart97ex3) -calplot(m0) - -## ------------------------------------------------------------------------ -plot(m0, which=3) - -## ---- message = FALSE, echo = TRUE--------------------------------------- -weights <- with(massart97ex3, { - yx <- split(y, x) - ybar <- sapply(yx, mean) - s <- round(sapply(yx, sd), digits = 2) - w <- round(1 / (s^2), digits = 3) -}) -massart97ex3.means <- aggregate(y ~ x, massart97ex3, mean) - -m <- lm(y ~ x, w = weights, data = massart97ex3.means) - -## ------------------------------------------------------------------------ -inverse.predict(m, 15, ws=1.67) -inverse.predict(m, 90, ws = 0.145) - |