diff options
Diffstat (limited to 'demo')
| -rw-r--r-- | demo/00Index | 1 | ||||
| -rw-r--r-- | demo/massart97ex8.R | 12 |
2 files changed, 0 insertions, 13 deletions
diff --git a/demo/00Index b/demo/00Index deleted file mode 100644 index a548abc..0000000 --- a/demo/00Index +++ /dev/null @@ -1 +0,0 @@ -massart97ex8 Analysis of example 8 in Massart (1997) diff --git a/demo/massart97ex8.R b/demo/massart97ex8.R deleted file mode 100644 index 0a49ec2..0000000 --- a/demo/massart97ex8.R +++ /dev/null @@ -1,12 +0,0 @@ -data(massart97ex3) -attach(massart97ex3) -xi <- levels(factor(x)) -yx <- split(y,factor(x)) -ybari <- sapply(yx,mean) -si <- round(sapply(yx,sd),digits=2) -wi <- round(1/(si^2),digits=3) -weights <- wi[factor(x)] -m <- lm(y ~ x,w=weights) -inverse.predict(m, 15, ws = 1.67) -inverse.predict(m, 90, ws = 0.145) -#calplot(m) |