nodes <- getNodes(head(mtcars), c("cyl", "gear", "vs"), group = TRUE)
res <- fixNodeBias(head(mtcars))
edges <- getEdges(getAssociation(res), getNodes(res, group = TRUE))
createVisNetwork(nodes, edges)
Run the code above in your browser using DataLab