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\