Bag::Similarity::Cosine - Cosine similarity for sets
use Bag::Similarity::Cosine; # object method my $cosine = Bag::Similarity::Cosine->new; my $similarity = $cosine->similarity('Photographer','Fotograf');
A intersection B / (sqrt(A) * sqrt(B))
Bag::Similarity::Cosine inherits all methods from Bag::Similarity and implements the following new ones.
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).
http://github.com/wollmers/Bag-Similarity
Helmut Wollmersdorfer, <helmut.wollmersdorfer@gmail.com>
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.
To install Bag::Similarity, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Bag::Similarity
CPAN shell
perl -MCPAN -e shell install Bag::Similarity
For more information on module installation, please visit the detailed CPAN module installation guide.