Mercurial > repos > xuebing > splicesite_max_entropy
comparison splicesitescore/score3.pl~ @ 7:3fd430270c0c
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) { |