devel/scm_gof_test.pl

   1 #!/usr/local/bin/perl
   2
   3 use lib qw(../lib);
   4 use gof_crc(test);
   5 use tool::scm;
   6 use model;
   7 use ui;
   8
   9 ui -> category( 'scm' );
  10
  11 my $debug = defined $ARGV[0] ? $ARGV[0] : 0;
  12
  13 my $model = model -> new('filename' => 'pheno.mod',
  14                          target     => 'disk',
  15                          ignore_missing_files => 1);
  16
  17 my $scm = tool::scm -> new( parameters             => ['CL', 'V'],
  18                               models                 => [$model],
  19                               continuous_covariates   => ['WGT'],
  20                               categorical_covariates => ['APGR'],
  21                               fix                    => 0,
  22                               nm_version             => 6,
  23                               picky                  => 1,
  24                               logfile                => 'scmlog.txt',
  25                               threads                => 3,
  26                               p_value                => 0.05,
  27                               search_direction       => 'forward',
  28                               gof                    => gof_crc::test,
  29                               abort_on_fail          => 0,
  30                               test_relations         => { 'CL' => ['WGT'],
  31                                                           'V'  => ['WGT','APGR'] } );
  32
  33
  34 $scm -> run;
  35