line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
=head1 NAME |
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
Text::NSP - Extract collocations and Ngrams from text |
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
=head1 SYNOPSIS |
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
=head2 Basic Usage |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
use Text::NSP::Measures::2D::MI::ll; |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
my $npp = 60; my $n1p = 20; my $np1 = 20; my $n11 = 10; |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
$ll_value = calculateStatistic( n11=>$n11, |
14
|
|
|
|
|
|
|
n1p=>$n1p, |
15
|
|
|
|
|
|
|
np1=>$np1, |
16
|
|
|
|
|
|
|
npp=>$npp); |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
if( ($errorCode = getErrorCode())) |
19
|
|
|
|
|
|
|
{ |
20
|
|
|
|
|
|
|
print STDERR $errorCode." - ".getErrorMessage()."\n""; |
21
|
|
|
|
|
|
|
} |
22
|
|
|
|
|
|
|
else |
23
|
|
|
|
|
|
|
{ |
24
|
|
|
|
|
|
|
print getStatisticName."value for bigram is ".$ll_value."\n""; |
25
|
|
|
|
|
|
|
} |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
=head1 DESCRIPTION |
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
The Ngram Statistics Package (NSP) is a collection of perl modules |
30
|
|
|
|
|
|
|
that aid in analyzing Ngrams in text files. We define an Ngram as a |
31
|
|
|
|
|
|
|
sequence of 'n' tokens that occur within a window of at least 'n' |
32
|
|
|
|
|
|
|
tokens in the text; what constitutes a "token" can be defined by the |
33
|
|
|
|
|
|
|
user. |
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
NSP.pm is a stub that doesn't have any real functionality. It serves |
36
|
|
|
|
|
|
|
as a top level module in the hierarchy and allows us to group the |
37
|
|
|
|
|
|
|
Text::NSP::Count and Text::NSP::Measures modules. |
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
The modules under Text::NSP::Measures implement measures of |
40
|
|
|
|
|
|
|
association that are used to evaluate whether the co-occurrence of the |
41
|
|
|
|
|
|
|
words in a Ngram is purely by chance or statistically significant. |
42
|
|
|
|
|
|
|
These measures compute a numerical score for Ngrams. This score can be |
43
|
|
|
|
|
|
|
used to decide whether or not there is enough evidence to reject the |
44
|
|
|
|
|
|
|
null hypothesis (that the Ngram is not statistically significant) for |
45
|
|
|
|
|
|
|
that Ngram. |
46
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
To use one of the measures you can either use the program statistic.pl |
48
|
|
|
|
|
|
|
provided under the utils directory, or write your own driver program. |
49
|
|
|
|
|
|
|
Program statistic.pl takes as input a list of Ngrams with their |
50
|
|
|
|
|
|
|
frequencies (in the format output by count.pl) and runs a |
51
|
|
|
|
|
|
|
user-selected statistical measure of association to compute the score |
52
|
|
|
|
|
|
|
for each Ngram. The Ngrams, along with their scores, are output in |
53
|
|
|
|
|
|
|
descending order of this score. For help on using utils/statistic.pl |
54
|
|
|
|
|
|
|
please refer to its perldoc (perldoc utils/statistic.pl). |
55
|
|
|
|
|
|
|
|
56
|
|
|
|
|
|
|
If you are writing your own driver program, a basic usage example is |
57
|
|
|
|
|
|
|
provided above under SYNOPSIS. For further clarification please refer |
58
|
|
|
|
|
|
|
to the documentation of Text::NSP::Measures (perldoc |
59
|
|
|
|
|
|
|
Text::NSP::Measures). |
60
|
|
|
|
|
|
|
|
61
|
|
|
|
|
|
|
|
62
|
|
|
|
|
|
|
=head2 Error Codes |
63
|
|
|
|
|
|
|
|
64
|
|
|
|
|
|
|
The following table describes the error codes use in the |
65
|
|
|
|
|
|
|
implementation, |
66
|
|
|
|
|
|
|
|
67
|
|
|
|
|
|
|
Error codes common to all the association measures. |
68
|
|
|
|
|
|
|
|
69
|
|
|
|
|
|
|
100 - Trying to create an object of a abstract class. |
70
|
|
|
|
|
|
|
|
71
|
|
|
|
|
|
|
200 - one of the required values is missing. |
72
|
|
|
|
|
|
|
|
73
|
|
|
|
|
|
|
201 - one of the observed frequency comes out to be -ve. |
74
|
|
|
|
|
|
|
|
75
|
|
|
|
|
|
|
202 - one of the frequency values(n11) exceeds the total no of |
76
|
|
|
|
|
|
|
bigrams(npp) or a marginal total(n1p, np1). |
77
|
|
|
|
|
|
|
|
78
|
|
|
|
|
|
|
203 - one of the marginal totals(n1p, np1) exceeds the total bigram |
79
|
|
|
|
|
|
|
count(npp). |
80
|
|
|
|
|
|
|
|
81
|
|
|
|
|
|
|
204 - one of the marginal totals is -ve. |
82
|
|
|
|
|
|
|
|
83
|
|
|
|
|
|
|
Error Codes required by the mutual information measures |
84
|
|
|
|
|
|
|
|
85
|
|
|
|
|
|
|
211 - one of the expected values is zero. |
86
|
|
|
|
|
|
|
|
87
|
|
|
|
|
|
|
212 - one of the expected values is -ve. |
88
|
|
|
|
|
|
|
|
89
|
|
|
|
|
|
|
|
90
|
|
|
|
|
|
|
Error codes required by the CHI measures. |
91
|
|
|
|
|
|
|
|
92
|
|
|
|
|
|
|
221 - one of the expected values is zero. |
93
|
|
|
|
|
|
|
|
94
|
|
|
|
|
|
|
=head2 Methods |
95
|
|
|
|
|
|
|
|
96
|
|
|
|
|
|
|
=over |
97
|
|
|
|
|
|
|
|
98
|
|
|
|
|
|
|
=cut |
99
|
|
|
|
|
|
|
|
100
|
|
|
|
|
|
|
package Text::NSP; |
101
|
|
|
|
|
|
|
|
102
|
29
|
|
|
29
|
|
669
|
use strict; |
|
29
|
|
|
|
|
51
|
|
|
29
|
|
|
|
|
1150
|
|
103
|
29
|
|
|
29
|
|
138
|
use Carp; |
|
29
|
|
|
|
|
45
|
|
|
29
|
|
|
|
|
2319
|
|
104
|
29
|
|
|
29
|
|
126
|
use warnings; |
|
29
|
|
|
|
|
48
|
|
|
29
|
|
|
|
|
2081
|
|
105
|
|
|
|
|
|
|
|
106
|
|
|
|
|
|
|
our ($VERSION, @ISA); |
107
|
|
|
|
|
|
|
|
108
|
|
|
|
|
|
|
@ISA = qw(Exporter); |
109
|
|
|
|
|
|
|
|
110
|
|
|
|
|
|
|
$VERSION = '1.31'; |
111
|
|
|
|
|
|
|
|
112
|
|
|
|
|
|
|
1; |
113
|
|
|
|
|
|
|
|
114
|
|
|
|
|
|
|
__END__ |