1 package Profile::Scanps::Result;
6 use base qw(Profile::Generic);
11 my $scanps = Scanps::Result->new($fh);
13 # Get third, or last iteration, which ever is smaller
14 my $it = $scanps->iterations - 1;
15 $it > 2 and $it = 2; # iterations is zero based
16 my @positions = $scanps->profile($it);
19 my (undef, @data) = split /\s+/, $_;
20 $self->add_pos(@data[0..22]);
27 while ((my @data = $self->get_pos) > 1) {
28 print $fh map({ sprintf "%2.5f ", 1 / (1 + exp(-$_/100)) } @data), "\n";
29 #print $fh join(" ", map $_ / 100 } @data), "\n";
30 #print $fh join(" ", @data), "\n";
40 Profile::Scanps::Result - Reads a profile from a Scanps result file
44 Reads the profile that can be provided at the end of a Scanps file.
48 Inherits from Profile and Generic modules.