As in Dmitris' post lines is a somewhat more succint so here it is again replacing segments with lines:
set.seed(1) x <- rnorm(50) y <- rnorm(50) plot(y ~ x) y.lm <- lm(y ~ x) abline(y.lm) # omit this line if black abline not wanted x0 <- c(-2, 4) y0 <- predict(y.lm, list(x = x0)) lines(y0 ~ x0, col = "red", lwd = 2) On 1/16/07, Gabor Grothendieck <[EMAIL PROTECTED]> wrote: > Use segments. In the following we overlay the black abline with > a wider red segments line segment: > > > set.seed(1) > x <- rnorm(50) > y <- rnorm(50) > > plot(y ~ x) > > y.lm <- lm(y ~ x) > > abline(y.lm) # omit this line if black abline not wanted > > x0 <- c(-2, 4) > y0 <- predict(y.lm, list(x = x0)) > segments(x0[1], y0[1], x0[2], y0[2], col = "red", lwd = 2) > > > > On 1/16/07, BBands <[EMAIL PROTECTED]> wrote: > > Dear HelpeRs, > > > > Given: > > x <- rnorm(50) > > y <- rnorm(50) > > plot(x,y) > > abline(lm(x ~ y)) > > > > Is there a way to plot just a portion of the line? Say for values of x > > > 2.0 or x > -2.0 and x < 4.0. (Still fitting all the points.) > > > > Thank you, > > > > jab > > -- > > John Bollinger, CFA, CMT > > www.BollingerBands.com > > > > If you advance far enough, you arrive at the beginning. > > > > ______________________________________________ > > R-help@stat.math.ethz.ch 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. > > > ______________________________________________ R-help@stat.math.ethz.ch 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.