From andy_liaw at merck.com  Thu Aug 14 23:08:34 2003
From: andy_liaw at merck.com (Liaw, Andy)
Date: Fri Aug 15 04:09:02 2003
Subject: [Rd] plot.lm mislabels points with na.exclude (PR#3750)
Message-ID: <3A822319EB35174CA3714066D590DCD50205C9C5@usrymx25.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@merck.com 
> [mailto:richard_raubertas@merck.com] 
> Sent: Thursday, August 14, 2003 6:38 PM
> To: r-devel@stat.math.ethz.ch
> Cc: R-bugs@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@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.


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