# Create a graph with a
# directed tree
graph <-
create_graph() %>%
add_balanced_tree(
k = 2, h = 2)
# Convert this graph from
# directed to undirected
graph <-
graph %>%
set_graph_undirected()
# Perform a check on whether
# graph is directed
graph %>% is_graph_directed()
Run the code above in your browser using DataLab