## ------------------------------------------------
## Method `IEdge2$new`
## ------------------------------------------------
iedge <- IEdge2$new(c(1, 1), c(2, 3))
iedge
iedge$O
iedge$O <- c(1, 0)
iedge
## ------------------------------------------------
## Method `IEdge2$print`
## ------------------------------------------------
IEdge2$new(c(2, 0), c(3, -1))
Run the code above in your browser using DataLab