- segments(a[lsa[x$tip.label == assoc[i, 1]], 1] + decx[i] +
- gap, a[lsa[x$tip.label == assoc[i, 1]], 2], a[lsa[x$tip.label ==
- assoc[i, 1]], 1] + gap + left, a[lsa[x$tip.label ==
- assoc[i, 1]], 2], col = col)
- segments(b2[lsb[y$tip.label == assoc[i, 2]], 1] - (decy[i] +
- gap), b2[lsb[y$tip.label == assoc[i, 2]], 2], b2[lsb[y$tip.label ==
- assoc[i, 2]], 1] - (gap + right), b2[lsb[y$tip.label ==
- assoc[i, 2]], 2], col = col)
- segments(a[lsa[x$tip.label == assoc[i, 1]], 1] + gap +
- left, a[lsa[x$tip.label == assoc[i, 1]], 2], b2[lsb[y$tip.label ==
- assoc[i, 2]], 1] - (gap + right), b2[lsb[y$tip.label ==
- assoc[i, 2]], 2], col = col)
+
+ segments(a[lsa[x$tip.label == assoc[i, 1]], 1] + decx[i] + gap,
+ a[lsa[x$tip.label == assoc[i, 1]], 2],
+ a[lsa[x$tip.label == assoc[i, 1]], 1] + gap + left,
+ a[lsa[x$tip.label == assoc[i, 1]], 2],
+ col = colors[i], lwd = lwidths[i], lty = ltype[i])
+
+ segments(b2[lsb[y$tip.label == assoc[i, 2]], 1] - (decy[i] + gap),
+ b2[lsb[y$tip.label == assoc[i, 2]], 2],
+ b2[lsb[y$tip.label == assoc[i, 2]], 1] - (gap + right),
+ b2[lsb[y$tip.label == assoc[i, 2]], 2],
+ col = colors[i], lwd = lwidths[i], lty = ltype[i])
+
+ segments(a[lsa[x$tip.label == assoc[i, 1]], 1] + gap + left,
+ a[lsa[x$tip.label == assoc[i, 1]], 2],
+ b2[lsb[y$tip.label == assoc[i, 2]], 1] - (gap + right),
+ b2[lsb[y$tip.label == assoc[i, 2]], 2],
+ col = colors[i], lwd = lwidths[i], lty = ltype[i])