Mercurial > repos > xuebing > splicesite_max_entropy

comparison splicesitescore/score3.pl~ @ 7:3fd430270c0c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author xuebing
date Sun, 01 Apr 2012 01:59:22 -0400
parents 85af77643e89
children ec97befe722b
comparison
equal deleted inserted replaced
6:85af77643e89 7:3fd430270c0c
49 } 49 }
50 return $sum; 50 return $sum;
51 } 51 }
52 52
53 sub makemaxentscores{ 53 sub makemaxentscores{
54 my $dir = "/Users/xuebing/galaxy-dist/tools/mytools/splicesitescore/splicemodels/"; 54 my $dir = "splicemodels/";
55 my @list = ('me2x3acc1','me2x3acc2','me2x3acc3','me2x3acc4', 55 my @list = ('me2x3acc1','me2x3acc2','me2x3acc3','me2x3acc4',
56 'me2x3acc5','me2x3acc6','me2x3acc7','me2x3acc8','me2x3acc9'); 56 'me2x3acc5','me2x3acc6','me2x3acc7','me2x3acc8','me2x3acc9');
57 my @metables; 57 my @metables;
58 my $num = 0 ; 58 my $num = 0 ;
59 foreach my $file (@list) { 59 foreach my $file (@list) {
70 $num++; 70 $num++;
71 } 71 }
72 return @metables; 72 return @metables;
73 } 73 }
74 sub makewmmscores{ 74 sub makewmmscores{
75 my $dir = "/bionet/geneyeo_essentials/MaxEntropy/webserver/splicemodels/"; 75 my $dir = "splicemodels/";
76 my @list = ('me1s0acc1','me1s0acc2','me1s0acc3','me1s0acc4', 76 my @list = ('me1s0acc1','me1s0acc2','me1s0acc3','me1s0acc4',
77 'me1s0acc5','me1s0acc6','me1s0acc7','me1s0acc8','me1s0acc9'); 77 'me1s0acc5','me1s0acc6','me1s0acc7','me1s0acc8','me1s0acc9');
78 my @metables; 78 my @metables;
79 my $num = 0 ; 79 my $num = 0 ;
80 foreach my $file (@list) { 80 foreach my $file (@list) {
91 $num++; 91 $num++;
92 } 92 }
93 return @metables; 93 return @metables;
94 } 94 }
95 sub makemmscores{ 95 sub makemmscores{
96 my $dir = "/bionet/geneyeo_essentials/MaxEntropy/webserver/splicemodels/"; 96 my $dir = "splicemodels/";
97 my @list = ('me2s0acc1','me2s0acc2','me2s0acc3','me2s0acc4', 97 my @list = ('me2s0acc1','me2s0acc2','me2s0acc3','me2s0acc4',
98 'me2s0acc5','me2s0acc6','me2s0acc7','me2s0acc8','me2s0acc9'); 98 'me2s0acc5','me2s0acc6','me2s0acc7','me2s0acc8','me2s0acc9');
99 my @metables; 99 my @metables;
100 my $num = 0 ; 100 my $num = 0 ;
101 foreach my $file (@list) { 101 foreach my $file (@list) {