# NOT RUN {
embeddings_data <- biconnected_network %>%
prepare_edges(.) %>%
prepare_continuous_force(., node_names = "name", force_var = "force") %>%
setse_auto(., k = "weight")
out <- create_node_edge_df(embeddings_data, function_names = c("mean", "mode", "sum"))
# }
Run the code above in your browser using DataLab