[Rd] plot.lm mislabels points with na.exclude (PR#3750)

[andy_liaw at merck.com]

Here's one possible fix (may not be very efficient).

Change lines 82-83 in $R_HOME/src/base/R/plot.lm.R to the following:

        if (id.n > 0) {
            qqx <- rep(NA, n)
            qqy <- rep(NA, n)
            qqx[!is.na(rs)] <- qq$x
            qqy[!is.na(rs)] <- qq$y
            text.id(qqx[show.rs], qqy[show.rs], show.rs, adj.x = TRUE)
        }

Andy


> -----Original Message-----
> From: richard_raubertas at merck.com 
> [mailto:richard_raubertas at merck.com] 
> Sent: Thursday, August 14, 2003 6:38 PM
> To: r-devel at stat.math.ethz.ch
> Cc: R-bugs at biostat.ku.dk
> Subject: [Rd] plot.lm mislabels points with na.exclude (PR#3750)
> 
> 
> R 1.7.1 on Windows XP
> 
> The "normal Q-Q plot" produced by plot.lm() mislabels points 
> when the model is fitted using na.action=na.exclude.  Example:
> 
> x <- 1:50
> y <- x + rnorm(50)
> y[c(5,10,15)] <- NA   # insert some NA's
> y[40] <- 50  # add an outlier
> plot(lm(y ~ x, na.action=na.omit))  # outlier correctly 
> labeled in all 
>                                     # four plots
> plot(lm(y ~ x, na.action=na.exclude)) # labels attached to 
> wrong points
>                                       # in the QQ plot (only)
> 
> 
> Rich Raubertas
> Biometrics Research
> Merck & Co.
> 
> --------------------------------------------------------------
> ----------------
> Notice:  This e-mail message, together with any attachments, 
> contains information of Merck & Co., Inc. (Whitehouse 
> Station, New Jersey, USA), and/or its affiliates (which may 
> be known outside the United States as Merck Frosst, Merck 
> Sharp & Dohme or MSD) that may be confidential, proprietary 
> copyrighted and/or legally privileged, and is intended solely 
> for the use of the individual or entity named on this 
> message.  If you are not the intended recipient, and have 
> received this message in error, please immediately return 
> this by e-mail and then delete it.
> 
> ______________________________________________
> R-devel at stat.math.ethz.ch mailing list 
> https://www.stat.math.ethz.ch/mailman/listinfo> /r-devel
> 
> 
> 
> --------------------------------------------------------------
> ----------------
> Notice:  This e-mail message, together with any attachments, 
> contains information of Merck & Co., Inc. (Whitehouse 
> Station, New Jersey, USA), and/or its affiliates (which may 
> be known outside the United States as Merck Frosst, Merck 
> Sharp & Dohme or MSD) that may be confidential, proprietary 
> copyrighted and/or legally privileged, and is intended solely 
> for the use of the individual or entity named on this 
> message.  If you are not the intended recipient, and have 
> received this message in error, please immediately return 
> this by e-mail and then delete it.
> --------------------------------------------------------------
> ----------------
> 

------------------------------------------------------------------------------
Notice:  This e-mail message, together with any attachments, contains
information of Merck & Co., Inc. (Whitehouse Station, New Jersey, USA), and/or
its affiliates (which may be known outside the United States as Merck Frosst,
Merck Sharp & Dohme or MSD) that may be confidential, proprietary copyrighted
and/or legally privileged, and is intended solely for the use of the
individual or entity named on this message.  If you are not the intended
recipient, and have received this message in error, please immediately return
this by e-mail and then delete it.