devel/modelfit_test.pl

   1 #!/usr/local/bin/perl
   2 use FindBin qw($Bin);
   3 use lib "$Bin/../lib";
   4 use tool::modelfit;
   5 use model;
   6 use Math::Random;
   7
   8 random_set_seed_from_phrase('testing');
   9
  10 my $modelFileName = $ARGV[0];
  11
  12 my $model = model -> new ( filename => $modelFileName,
  13                            ignore_missing_output => 1,
  14                            target => 'disk' );
  15
  16 my $modelfitRun = tool::modelfit->new( logfile           => 'out.log',
  17                                  threads                 => 1,
  18                                          picky                   => 1,
  19                                          abort_on_fail           => 0,
  20                                          ask_if_fail             => 0,
  21                                          models                  => [$model],
  22                                          retries                 => 5,
  23                                          tweak_inits             => 1,
  24                                          nm_version              => 6,
  25 #                                        handle_maxevals         => 1,
  26 #                                        handle_rounding_errors  => 1,
  27 #                                        cutoff                  => 0.01,
  28                                          cutoff_thetas           => [[4..33]]);
  29
  30 $modelfitRun -> run();