# Create a small sample matrix.
flow <- matrix(c(0, 10000, 0, 0, 20000,
1000, 0, 10000, 0, 0,
5000, 0, 0, 0, 3000,
0, 1000000, 600000, 0, 0,
0, 50000, 0, 500000, 0),
nrow=5, byrow=TRUE)
rownames(flow) <- colnames(flow) <- c("A", "B", "C", "D", "E")
plotNetwork(flow)
# Use data from the network package.
data(flo)
plotNetwork(flo)
Run the code above in your browser using DataLab