# NOT RUN {
g <- make_graph(~ A - B:C:D)
graph_attr(g, "name") <- "4-star"
g
graph_attr(g) <- list(layout = layout_with_fr(g),
name = "4-star layed out")
plot(g)
# }
Run the code above in your browser using DataCamp Workspace