R/outermost.R

In ymatts/SSRM: Structural Social Role Mining for Dynamic Social Networks

#' Calculating Outermosts
#'
#' @name outermost
#' @param igraph object
#' @return result
#' @author Yu Hatakeyama
#' @export
#'

#outermostsに属するノード(近接中心性に関する頻度が正規分布であると仮定したときの下2sigma範囲外)
outermost <- 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)
}