Clair::Network::Centrality

Degree


SummaryIncluded librariesPackage variablesSynopsisDescriptionGeneral documentationMethods

SummaryTop
Clair::Network::Centrality::Degree - Class for computing degree
centrality

Package variablesTop
No package variables defined.

Included modulesTop
Clair::Network
Clair::Network::Centrality

InheritTop
Clair::Network::Centrality

SynopsisTop
my $degree = Clair::Network::Centrality::Degree->new($net);
my %b = $degree->centrality();
my $node_degree = $degree->node_centrality($node);

DescriptionTop
This class will compute degree centrality.
IMPORTANT: Degree centrality is calculated for the undirected network

MethodsTop
_centralityNo descriptionCode
_node_centralityNo descriptionCode
_normalized_centralityDescriptionCode

Methods description


_normalized_centralitycode    nextTop
Normalized centrality for degree centrality. Maximum degree possible is N-1.
http://www.analytictech.com/networks/centrali.htm

Methods code


_centralitydescriptionprevnextTop
sub _centrality {
  my $self = shift;
  my %parameters = @_;

  my $net = $self->{net};

  my $directed = $net->{directed};
  if ((exists $parameters{directed} and $parameters{directed} == 0) ||
      (exists $parameters{undirected} and $parameters{undirected} == 1)) {
    $directed = 0;
  }

  my %value_hash = ();

  my @vertices = $net->get_vertices();
  foreach my $v (@vertices) {
    if ($directed) {
      $value_hash{$v} = $net->total_degree($v) / 2;
    } else {
      $value_hash{$v} = $net->degree($v);
    }
  }

  return\% value_hash;
}

_node_centralitydescriptionprevnextTop
sub _node_centrality {}

_normalized_centralitydescriptionprevnextTop
sub _normalized_centrality {
  my $self = shift;

  my %parameters = @_;

  my $net = $self->{net};

  my $directed = $net->{directed};
  if ((exists $parameters{directed} and $parameters{directed} == 0) ||
      (exists $parameters{undirected} and $parameters{undirected} == 1)) {
    $directed = 0;
  }

  my $value_hash = $self->centrality();
  my $max_degree;
  $max_degree = $net->num_nodes() - 1;
  foreach my $v (keys %{$value_hash}) {
    $value_hash->{$v} = $value_hash->{$v} / $max_degree;
  }

  return $value_hash;
}

General documentation


No general documentation available.