1 files changed, 0 insertions, 12 deletions
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)