diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2021-04-16 14:27:40 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2021-04-16 14:27:40 +0200 |
| commit | 23f10d1ec147873bf9f198b47c1c9d9310b6591d (patch) | |
| tree | 7c23f118832e04e328fa58354564ab39eb211437 /vignettes/chemCal.R | |
| parent | 40979ea0a74bbbfade1ce299415605f64215c0a4 (diff) | |
Prepare upload to retain presence on CRAN
As knitr does not depend on markdown any more
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) - |