#!/usr/bin/perl

use strict;
use warnings;

use lib qw(Classes);
use ZscoresDeltaRefinementManager;

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



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

foreach my $target (@TARGETS) {

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

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

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


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