#!/usr/bin/perl

use strict;
use warnings;

use lib qw(Classes);
use ZscoresMultimerManager;

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



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

foreach my $target (@TARGETS) {

  my @params;
  push @params, {
	target => $target,
        model_type => 'first'
  };

  push @params, {
        target => $target,
        model_type => 'best'
  };

  #loop over parameters
  foreach  my $param (@params){
     my $rawScores = $manager->getRawScores($param);
     my $zScores = $manager->calcZScore($rawScores);
     $manager->upload_all($param, $zScores);
  }
#last;
}


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