sub w
{
  my($self, $a, $i) = @_;

  if($self->{method} eq 'correlation') {
    return $self->correlation($a, $i); }   
  if($self->{method} eq 'vector_similarity') {
    return $self->vector_similarity($a, $i); }
  if($self->{method} eq 'IUF') {
    return $self->IUF($a, $i); }
  if($self->{method} eq 'MSD') {
    return $self->MSD($a, $i); }
}