#' Simplify network
#'
#' This function allows you to remove multiple edges, self-loops and keeps only main component.
#' @param seed_graph igraph object of the network to be simplified.
#' @return seed_graph_maincomp is an igraph object with the simplified main component of the input graph.
#' @export
simpmain=function(seed_graph){
seed_graph_simp=igraph::simplify(seed_graph)
seed_comp=igraph::components(seed_graph_simp)#divide el grafo en subgrafos
main_id=which.max(seed_comp$csize)
seed_graph_maincomp=igraph::induced_subgraph(seed_graph_simp,seed_comp[[1]]==main_id)
seed_graph_maincomp
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.