powered by
plotnetwork(probmat, labels, arrlen = 0.15, scale = 1, ...)
arrows
data(outbreak) K <- networkmat(outbreak$epidata[,1], outbreak$epidata[,4]) plotnetwork(K, labels=outbreak$epidata[,1])
Run the code above in your browser using DataLab