[Bio] / SubsystemExtension / evaluate_gecko_joining.pl Repository:
ViewVC logotype

View of /SubsystemExtension/evaluate_gecko_joining.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Thu Jan 5 19:41:53 2006 UTC (12 years, 9 months ago) by olson
Branch: MAIN
CVS Tags: HEAD
Rearrangement for easier installation.

#!/Users/fig/FIGDisk/env/mac/bin/perl 

use strict;
use warnings;

use Getopt::Std;


use Data::Dumper;

use SubsystemExtension::ClusterList;
use SubsystemExtension::Cluster;
use SubsystemExtension::JoinedCluster;



sub usage {
    print "-= evaluate_gecko_joining =-\n\n";
    print "usage:\n evaluate_gecko_joining -l <unjoined cluster file> -d <validation_directory> \n";
    
}

our ($opt_l, $opt_d);

getopts('l:d:');

unless ($opt_l || $opt_d) {
    print usage;
    print "ERROR: cant start evaluation no cluster input defined\n";
    exit 1;
}


$opt_d = $opt_d ? $opt_d : '~/';


my @percentages = (10,20,30,40,50,60,66,70,75,80,90);
print STDERR "percentage\tunjoined\ttotal\tjoined\n";
foreach my $percentage (@percentages) {
    my $clusterlist = SubsystemExtension::ClusterList->new();
    $clusterlist = SubsystemExtension::ClusterList->fromFile($opt_l);
    my $unjoined = $clusterlist->count();
   
    $clusterlist->joinClusters($percentage);
    print STDERR "$percentage\t$unjoined\t".$clusterlist->count()."\t".$clusterlist->joinedCount()."\n";
    $clusterlist->toFile($opt_d."/clusterlist_$percentage.cls");

}



MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3