sessionInfo()
tab <- read.csv(file = system.file( "extdata", "E_coli", "NodeInst.csv", package = "HiveR"))
tab <- read.csv(file = system.file( "extdata", "E_coli", "EdgeInst.csv", package = "HiveR"))
tab
sumHPD(EC1)
str(EC1)
library(HiveR)
EC1 <- dot2HPD(file = system.file("extdata", "E_coli", "ecoli.dot", package = "HiveR"),#
	node.inst = system.file("extdata", "E_coli", "NodeInst.csv", package = "HiveR"),#
	edge.inst = system.file( "extdata", "E_coli", "EdgeInst.csv", package = "HiveR"),#
	desc = "E coli gene regulatory network (Yan et al PNAS vol 107 pg 9186 (2010)) ",#
	axis.cols = rep("grey", 3))
EC1$edges$colors
EC1 <- dot2HPD(file = "ecoli.dot,#
	node.inst = "NodeInst.csv",#
	edge.inst = "EdgeInst.csv",#
	desc = "E coli gene regulatory network (Yan et al PNAS vol 107 pg 9186 (2010)) ",#
	axis.cols = rep("grey", 3))
EC1 <- dot2HPD(file = "ecoli.dot",#
	node.inst = "NodeInst.csv",#
	edge.inst = "EdgeInst.csv",#
	desc = "E coli gene regulatory network (Yan et al PNAS vol 107 pg 9186 (2010)) ",#
	axis.cols = rep("grey", 3))
EC1$edges$color
getwd()
tmp <- read.csv("EdgeInst.csv")
tmp
str(tmp)
EC1$nodes$color
library("HiveR")
vignette("HiveR")
