Text::NSP::Measures::3D::MI - Perl module that provides error checks and framework to implement Loglieklihood, Total Mutual Information, Pointwise Mutual Information and Poisson Stirling Measure for trigrams.


Basic Usage

  use Text::NSP::Measures::3D::MI::ll;

  $ll_value = calculateStatistic( n111=>10,

  if( ($errorCode = getErrorCode()))
    print STDERR $erroCode." - ".getErrorMessage()."\n";
    print getStatisticName."value for bigram is ".$ll_value."\n";


This module is the base class for the Loglikelihood and the True Mutual Information measures. All these measure are similar. This module provides error checks specific for these measures, it also implements the computations that are common to these measures.

Log-Likelihood measure is computed as
 Log-Likelihood = 2 * [n111 * log(n111/m111) + n112 * log(n112/m112) +
           n121 * log(n121/m121) + n122 * log(n122/m122) +
           n211 * log(n211/m211) + n212 * log(n212/m212) +
           n221 * log(n221/m221) + n222 * log(n222/m222)]
Total Mutual Information

tmi = [n111/nppp * log(n111/m111) + n112/nppp * log(n112/m112) + n121/nppp * log(n121/m121) + n122/nppp * log(n122/m122) + n211/nppp * log(n211/m211) + n212/nppp * log(n212/m212) + n221/nppp * log(n221/m221) + n222/nppp * log(n222/m222)]

Pointwise Mutual Information

pmi = log (n111/m111)

Poisson Stirling Measure

ps = n111 * ( log(n111/m111) - 1)

All these methods use the ratio of the observed values to expected values, for computations, and thus have common error checks, so they have been grouped togrther.


getValues($count_values) - This method calls computeMarginalTotals the computeObservedValues() and the computeExpectedValues() methods to compute the observed and expected values. It checks thes values for any errors that might cause the Loglikelihood, TMI and PMI measures to fail.

INPUT PARAMS : $count_values .. Reference of an hash containing the count values computed by the program.

RETURN VALUES : 1/undef ..returns '1' to indicate success and an undefined(NULL) value to indicate faliure.

computePMI($n, $m) - Computes the pmi of a given observed and expected value pair.

INPUT PARAMS : $n ..Observed value $m ..Expected value

RETURN VALUES : lognm .. the log of the ratio of observed value to expected value.


Ted Pedersen, University of Minnesota Duluth <>

Satanjeev Banerjee, Carnegie Mellon University <>

Amruta Purandare, University of Pittsburgh <>

Bridget Thomson-McInnes, University of Minnesota Twin Cities <>

Saiyam Kohli, University of Minnesota Duluth <>


Last updated: $Id:,v 1.14 2006/09/15 23:27:06 saiyam_kohli Exp $




Copyright (C) 2000-2006, Ted Pedersen, Satanjeev Banerjee, Amruta Purandare, Bridget Thomson-McInnes and Saiyam Kohli

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with this program; if not, write to

    The Free Software Foundation, Inc.,
    59 Temple Place - Suite 330,
    Boston, MA  02111-1307, USA.

Note: a copy of the GNU General Public License is available on the web at and is included in this distribution as GPL.txt.