From: Søren Højsgaard <Soren.Hojsgaard_at_agrsci.dk>

Date: Thu 06 Jul 2006 - 10:21:43 EST

G <- new("graphNEL", nodes=V, edgeL=edL) nAttrs <- list()

nAttrs$fillcolor <- c("red","red","blue","blue") names(nAttrs$fillcolor) <- V

plot(G, "neato",nodeAttrs=nAttrs)

R-help@stat.math.ethz.ch mailing list

https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Thu Jul 06 10:26:08 2006

Date: Thu 06 Jul 2006 - 10:21:43 EST

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])}

G <- new("graphNEL", nodes=V, edgeL=edL) nAttrs <- list()

nAttrs$fillcolor <- c("red","red","blue","blue") names(nAttrs$fillcolor) <- V

plot(G, "neato",nodeAttrs=nAttrs)

R-help@stat.math.ethz.ch mailing list

https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Thu Jul 06 10:26:08 2006

Archive maintained by Robert King, hosted by
the discipline of
statistics at the
University of Newcastle,
Australia.

Archive generated by hypermail 2.1.8, at Thu 06 Jul 2006 - 12:16:35 EST.

*
Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help.
Please read the posting
guide before posting to the list.
*