# NOT RUN {
d <- derma[, 10:25]
g <- fit_graph(d)
vs <- colnames(d)
vcol <- structure(vector("character", length(vs)), names = vs)
vcol[1:4] <- "lightsteelblue2"
vcol[5:7] <- "orange"
vcol[8:16] <- "pink"
plot(g, vcol)
# }
Run the code above in your browser using DataLab