plot ( <aov.obj> ) failed -- easy fix (PR#279)

[maechler@stat.math.ethz.ch]

It is already commited for "tomorrow"s snapshot of R-release
(why on earth has nobody noticed ??)

--- plot.lm.R	1999/08/13 09:36:22	1.4
+++ plot.lm.R	1999/09/15 16:39:45
@@ -17,7 +17,7 @@
     hii <- lm.influence(x)$hat
     s <- sqrt(deviance(x)/df.residual(x))
     if (any(show[2:3])) {
-	ylab23 <- switch(class(x)[1], lm = "Standardized residuals",
+	ylab23 <- switch(class(x)[1], aov = , lm = "Standardized residuals",
 			 glm = "Std. dev. residuals")
 	rs <- r/sqrt(1 - hii)/s
     }

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._