Hi David, I don´t know if I got what you are looking for. But see the code below.
x<-1:100 y<-x+(runif(100)*x) plot(y~x) mymod<-glm(y~x) my.coefs<-coef(mymod) my.coefs curve(my.coefs[1]+my.coefs[2]*x, lwd=2, col="red", add=T) Cheers, mitinho astronauta brazil On Wed, Sep 10, 2008 at 6:06 PM, David Epstein <[EMAIL PROTECTED]>wrote: > > Suppose x and y are numeric vectors of the same length. > > plot(x,y) #scatterplot > lmObj1 <- lm(y~x) # best fit line > abline(lmObj1) # good > lmObj2 <- lm(x~y) #get best fit but with axes interchanged > abline(lmObj2) # not what I want. I want the correct line, drawn on the > same > graph, but with > # response and predictor variables interchanged > > One way to proceed would be to extract the intercept and slope from lmObj2 > and then do the arithmetic to draw the correct line. I'm hoping for a more > streamlined method. Is there one? > > Thanks > David > -- > View this message in context: > http://www.nabble.com/reflecting-a-line-tp19422091p19422091.html > Sent from the R help mailing list archive at Nabble.com. > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide > http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > [[alternative HTML version deleted]]
______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
