Displaying 1 result from an estimated 1 matches for "sqrtabsr".
2005 Apr 23
3
Enhanced version of plot.lm()
...0.075
qq <- qqnorm(rs, main = main, ylab = ylab23, ylim = ylim,
...)
if (one.fig)
title(sub = sub.caption, ...)
mtext(caption[2], 3, 0.25)
if (id.n > 0)
text.id(qq$x[show.rs], qq$y[show.rs], show.rs, adj.x = TRUE)
}
if (show[3]) {
sqrtabsr <- sqrt(abs(rs))
ylim <- c(0, max(sqrtabsr, na.rm = TRUE))
yl <- as.expression(substitute(sqrt(abs(YL)), list(YL =
as.name(ylab23))))
yhn0 <- if (is.null(w))
yh
else yh[w != 0]
plot(yhn0, sqrtabsr, xlab = l.fit, ylab = yl, main = main,
ylim = y...