#' Calculating leader
#'
#' @name leader
#' @param igraph object
#' @return result
#' @author Yu Hatakeyama
#' @export
#'
#leadersに属するノード(近接中心性に関する頻度が正規分布であると仮定したときの上2sigma範囲外)
leader <- function(graph, visualize=T) {
center <- closeness(graph, mode="all", normalized=T)
result <- center[center > (mean(center) + 2*sd(center))]
if (visualize) {
SSRM$.visualize_func(graph)
}
return(result)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.