See if this gets you closer to what you want.
x1 <- c(1,2,3,4,5)
x2 <- c(2,4,6,8,10)
mod <- lm (x2~x1)
hm <- function (x) (mod$coe[1]+x*mod$coe[2])
plot.new()
# ...
box()
curve (hm,lty=1,xaxs="i", xlim=c(0,1), yaxs="i",
xlab="", xaxt="n" )
Seemed as though the , add=TRUE, parameter was getting in the way of
the other par settings working as "expected".
--
David Winsemius
On Jan 5, 2009, at 6:23 PM, Valentina Kraus wrote:
> I want the curve to touch the y axis like the curve touches the
> upper boundary.
>
> How can I eliminate the margin between axis and curve on the left
> side?
>
> x1 <- c(1,2,3,4,5)
> x2 <- c(2,4,6,8,10)
> mod <- lm (x2~x1)
> hm <- function (x) (mod$coe[1]+x*mod$coe[2])
> plot.new()
> # ...
> box()
> curve (hm,lty=1,add=T,xaxs="i",yaxs="i")
>
> (R 2.8.1)
> --
> Sensationsangebot verl?ngert: GMX FreeDSL - Telefonanschluss + DSL
> f?r nur 16,37 Euro/mtl.!* http://dsl.gmx.de/?ac=OM.AD.PD003K1308T4569a
>
> ______________________________________________
> R-help at 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.