devel/scm_test.pl

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