The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

    Webservice::InterMine::Cookbook::List::Enrichment - List Enrichment

SYNOPSIS

    use strict;
    use Webservice::InterMine;

    my $service = Webservice::InterMine->get_service('www.flymine.org/query');

    # Print out the names of the available enrichment widgets:
    for my $ew (grep {$_->{widgetType} eq 'enrichment'} $service->widgets) {
        printf "%s (%s)\n", $ew->{name}, $ew->{description};
    }

    # Get a reference to the list you want to analyse.
    my $list = $service->list('PL classIII');

    # Run the enrichment calculation
    my $results = $list->enrichment(
        widget => 'publication_enrichment',
        population => 'PL classII',
        maxp => 0.01
    );

    while (<$results>) {
        printf "%s (%s) - %.10f\n", $_->{identifier}, $_->{description}, $_->{'p-value'};
    }

DESCRIPTION

You can perfom enrichment calculations on lists that you have access to.

SEE ALSO

Webservice::InterMine::Service
Webservice::InterMine::List
Webservice::InterMine::ResultIterator