# NOT RUN {
g <- biconnected_network %>%
prepare_edges(.) %>%
#prepare the continuous features as normal
prepare_continuous_force(., node_names = "name", force_var = "force") %>%
#prepare the categorical features as normal
prepare_categorical_force(., node_names = "name", force_var = "group")
#embed them using the high dimensional function
two_dimensional_embeddings <- setse_auto_hd(g, force = c("group_A", "force"), k = "weight")
out <- create_node_edge_df_hd(two_dimensional_embeddings ,
function_names = c("mean", "mode", "sum"))
# }
Run the code above in your browser using DataLab