[Bio] / FigKernelScripts / rebuild_global_chromosomal_clusters.pl Repository:
ViewVC logotype

View of /FigKernelScripts/rebuild_global_chromosomal_clusters.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Fri Aug 10 16:48:55 2007 UTC (12 years, 9 months ago) by overbeek
Branch: MAIN
add rebuild_chromosomal_clusters

# -*- perl -*-
#
# Copyright (c) 2003-2006 University of Chicago and Fellowship
# for Interpretations of Genomes. All Rights Reserved.
#
# This file is part of the SEED Toolkit.
# 
# The SEED Toolkit is free software. You can redistribute
# it and/or modify it under the terms of the SEED Toolkit
# Public License. 
#
# You should have received a copy of the SEED Toolkit Public License
# along with this program; if not write to the University of Chicago
# at info@ci.uchicago.edu or the Fellowship for Interpretation of
# Genomes at veronika@thefig.info or download a copy from
# http://www.theseed.org/LICENSE.TXT.
#


###########################################
use FIG;
my $fig = new FIG;

my($cluster);
foreach $cluster (`cut -f1,2 < $FIG_Config::data/CouplingData/scores | cluster_objects`)
{
    chop $cluster;
    my @cluster = split(/\s+/,$cluster);
    if (@cluster > 1)
    {
	$fig->add_chromosomal_cluster(\@cluster);
    }
}
$fig->export_set("chromosomal_clusters","cluster_id","$FIG_Config::global/chromosomal_clusters");
&FIG::run("load_sets chromosomal_clusters cluster_id $FIG_Config::global/chromosomal_clusters");


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3