Finding the intersect of two lines in R

Question

I have some code which plots two lines from a set of points. I need to find the intersect of the two.

red <- read.table("red.txt", header=TRUE) #Get\