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

View of /SubsystemExtension/FigKernelScripts/evaluate_gecko_joining.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (download) (as text) (annotate) (vendor branch)
Fri Dec 30 08:41:53 2005 UTC (13 years, 11 months ago) by heiko
Branch: BRF, MAIN
CVS Tags: release_0_1, HEAD
Changes since 1.1: +0 -0 lines
Initial import

#!/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