R/plot.RWBP.R

plot.RWBP <-
function(x,...){
V(x$igraph)$color<-ifelse(V(x$igraph)$name<0, 'blue', 'red')
plot(x$igraph, edge.label=round(E(x$igraph)$weight, 3))
#plot(x$igraph)
}

Try the RWBP package in your browser

Any scripts or data that you put into this service are public.

RWBP documentation built on May 2, 2019, 8:39 a.m.