Hi pannigh,

The following might get you started:

> x0 <- uniroot(function(x) 100-0.5*x - (150- x), c(0, 150))$root
> x0
[1] 100
> 100- 0.5*x0
[1] 50

HTH,
Jorge.-


On Wed, Apr 25, 2012 at 1:01 PM, pannigh <> wrote:

> Dear List,
> I know this is not the first post on this topic, but I need basic help I
> guess. Assuming the simple case of two lines with one intercept, how can I
> make R calculate this intercept, NOT using locator().
>
> par (xaxs="i", yaxs="i")
> plot( 1, bty="n" ,xlim=c(0,300) , ylim=c(0,300) , xlab="X", ylab="Y")
>    curve(100-0.5*x, -50,250, add=T, col="blue")
>    curve(150- x   , -50,250, add=T, col="red")
>
> I want R to come up with the coordinates X=100, Y=50.
>
> Thank you for your help!
>
>
>
> --
> View this message in context:
> http://r.789695.n4.nabble.com/Intercept-between-two-lines-tp4587343p4587343.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]]

