/ 
Bag-Similarity-0.022
River stage zero No dependents
/ Bag::Similarity::Dice

NAME

Bag::Similarity::Dice - Dice similarity for bags

SYNOPSIS

use Bag::Similarity::Dice;

# object method
my $dice = Bag::Similarity::Dice->new;
my $similarity = $dice->similarity('Photographer','Fotograf');

DESCRIPTION

Dice similarity

2 * dot(A,B) / (norm(A) ** 2 + norm(B) ** 2)

METHODS

Bag::Similarity::Cosine inherits all methods from Bag::Similarity and implements the following new ones.

from_bags

 my $similarity = $object->from_bags(['a'],['b']);

This method expects two arrayrefs of strings as parameters. The parameters are not checked, thus can lead to funny results or uncatched divisions by zero.

If you want to use this method directly, you should catch the situation where one of the arrayrefs is empty (similarity is 0), or both are empty (similarity is 1).

SOURCE REPOSITORY

http://github.com/wollmers/Bag-Similarity

AUTHOR

Helmut Wollmersdorfer, <helmut.wollmersdorfer@gmail.com>

COPYRIGHT AND LICENSE

Copyright (C) 2014 by Helmut Wollmersdorfer

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.