- if (real.edge.length[i] <= 0) {
- if (e[i, 1] %in% node) {
- ini.time[e[i, 2]] <-
- ini.time[e[, 2]] - 2*real.edge.length[i]
- next
- }
- if (e[i, 2] %in% node) {
- ini.time[e[i, 1]] <-
- ini.time[e[, 1]] + 2*real.edge.length[i]
- next
- }
- ini.time[e[i, 2]] <-
- ini.time[e[, 2]] - real.edge.length[i]
- ini.time[e[i, 1]] <-
- ini.time[e[, 1]] + real.edge.length[i]
+ if (real.edge.length[i] > 0) next
+ if (e[i, 1] %in% node) {
+ ini.time[e[i, 2]] <- ini.time[e[1, 2]] - 2 * real.edge.length[i]
+ next