re flecting a line

Nordlund, Dan (DSHS/RDA) · 2008-09-10T21:31:30Z

> -----Original Message----- > From: r-help-bounces at r-project.org > [mailto:r-help-bounces at r-project.org] On Behalf Of David Epstein > Sent: Wednesday, September 10, 2008 1:06 PM > To: r-help at r-project.org > Subject: [R] re flecting a line > > > Suppose x and y are numeric vectors of the same length. > > plot(x,y) #scatterplot > lmObj1 abline(lmObj1) # good > lmObj2 abline(lmObj2) # not what I want. I

Nordlund, Dan (DSHS/RDA)

Wed, Sep 10, 2008 2:31 PM

Is something like this what you are looking for?

x <- 1:100
y <- 10 + x + 10*rnorm(100)

plot(y~x)
fit1.lm <- lm(y~x)
abline(fit1.lm, col='blue')
fit2.lm <- lm(x~y)
abline(-coef(fit2.lm)[1]/coef(fit2.lm)[2], 1/coef(fit2.lm)[2], col='red')


Hope this is helpful,

Dan

Daniel J. Nordlund
Washington State Department of Social and Health Services
Planning, Performance, and Accountability
Research and Data Analysis Division
Olympia, WA  98504-5204

Thread (5 messages)

David Epstein re flecting a line Sep 10 milton ruser re flecting a line Sep 10 Nordlund, Dan (DSHS/RDA) re flecting a line Sep 10 Gabor Grothendieck re flecting a line Sep 10 Nordlund, Dan (DSHS/RDA) re flecting a line Sep 10