Определение пересечения двух линейных аппроксимаций в R

У меня есть два линейных соответствия, которые я получил из вызовов lm в моем Сценарий R. Например ...

fit1 <- lm(y1 ~ x1)
fit2 <- lm(y2 ~ x2)

Я хотел бы найти точку (x, y), в которой эти две линии ( fit1 и fit2 ) пересекаются, если они