- k <- j + l - 1
- if (x$merge[i, l] > 0) {
- edge[k, 2] <- node[x$merge[i, l]] <- cur.nod
- cur.nod <- cur.nod + 1
- edge.length[k] <- x$height[i] - x$height[x$merge[i, l]]
+ k <- j + l - 1L
+ y <- x$merge[i, l]
+ if (y > 0) {
+ edge[k, 2] <- node[y] <- cur.nod
+ cur.nod <- cur.nod + 1L
+ edge.length[k] <- x$height[i] - x$height[y]