aboutsummaryrefslogtreecommitdiff
path: root/vignettes/chemCal.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2021-04-16 14:27:40 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2021-04-16 14:27:40 +0200
commit23f10d1ec147873bf9f198b47c1c9d9310b6591d (patch)
tree7c23f118832e04e328fa58354564ab39eb211437 /vignettes/chemCal.R
parent40979ea0a74bbbfade1ce299415605f64215c0a4 (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.R23
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)
-

Contact - Imprint