#!/usr/bin/perl

use strict;
use warnings;

use lib qw(Classes);
use ZscoresCryoemManager;

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

if (defined($ARGV[0])) {
  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);
  }
}

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