Displaying 2 results from an estimated 2 matches for "eidx".
Did you mean:
edx
2006 Jul 06
1
Rgraphviz: How to control the colours of edges in a graph
...Code for drawing the graph:
library(Rgraphviz)
V <- c("A","B","C","D")
E <- list(c("A","B"),c("B","C"),c("C","D"),c("D","A"),c("A","C"))
Eidx <- lapply(E, match, V)
edL <- vector("list", length=length(V))
names(edL) <- V
for (i in 1:length(Eidx)){
tmp <- Eidx[[i]]
print(tmp)
edL[[tmp[1]]]$edges <- c(edL[[tmp[1]]]$edges, tmp[2])
edL[[tmp[2]]]$edges <- c(edL[[tmp[2]]]$edges, tmp[1])...
2006 Jul 06
1
Rgraphviz: Setting the edge width
...s thicker. Can anyone help on this??
Regards
S?ren
V <- c("A","B","C","D")
E <- list(c("A","B"),c("B","C"),c("C","D"),c("D","A"),c("A","C"))
Eidx <- lapply(E, match, V)
edL <- vector("list", length=length(V))
names(edL) <- V
for (i in 1:length(Eidx)){
tmp <- Eidx[[i]]
print(tmp)
edL[[tmp[1]]]$edges <- c(edL[[tmp[1]]]$edges, tmp[2])
edL[[tmp[2]]]$edges <- c(edL[[tmp[2]]]$edges, tmp[1])...