#!/usr/bin/perl

use strict;
use warnings;

use lib qw(Classes);
use ZscoresRRCManager;

my @TARGETS;
my $manager = new ZscoresRRCManager();



if (defined($ARGV[0])){
  # &usage();
  push @TARGETS, $ARGV[0];
}

foreach my $target (@TARGETS) {

  my @params;
  foreach my $rr_range (qw/L ML xL/){
    foreach my $list_size (qw/FL L2 L5 L1 TOP10/){
      foreach my $prob_filter(qw/0 0.5/){
	  push @params, {
		target => $target,
		rr_range => $rr_range,
		list_size => $list_size,
		prob_filter => $prob_filter
	  };
      }
    }
  }
  #loop over parameters
  foreach  my $param (@params){
     my $rawScores = $manager->getRawScores($param);
     my $zScores = $manager->calcZScore($rawScores);
     $manager->upload_all($param, $zScores);
     #last;
  }
last;
}


sub usage{
    print "\n=========\nUSAGE: $0 <TARGET> \n=========\n\n";
    exit;
}