# NOT RUN {
#Load color nodes table
data(MetColorTable)
#Assign colors according to "Class" column
MetColorTable<-assign_colorsAnnotation(MetColorTable)
#Load CoNI results
data(CoNIResultsHFDToy)
#Generate Network
HFDNetwork<-generate_network(ResultsCoNI = CoNIResultsHFDToy,
colorVertexNetwork = TRUE,
colorVertexTable = MetColorTable,
outputDir = "./",
outputFileName = "HFD",
saveFiles = FALSE)
NetStats(HFDNetwork)
# }
Run the code above in your browser using DataLab