I am trying to calculate the angle, slope and intercept of line 3 which is 60 degrees or pi/3 away from line 1. I know that information for the other lines.
x1 = 652
x2 = 1017
y1 = 194
y2 = 632
p.pos <- data.frame(x1,x2,y1,y2)
## Line 1 information
angle.l1 = 1.565595
slope.l1 = 1.2
intercept.l1 = -588.4
## Line 2 information
angle.l2 = 0.5183978
slope.l2 = 0.5704363
intercept.l2 = 51.8663
Thanks in advance