g<- graph(c(1,2,2,3), directed = FALSE)
g<- set.vertex.attribute(g, "name", V(g), c("a", "b", "c")) # name the nodes of the graph
data<- matrix(rnorm(10*3), 10, 3)
colnames(data)<- c("a", "b", "c") # name the columns of the data
bg<- BlockGraph(x = g, data = data)
Run the code above in your browser using DataLab