devel/scm_backward_test.pl

   1 #!/usr/bin/perl
   2
   3 use lib qw(../lib);
   4 use method::scm;
   5 use model;
   6
   7 my $debug = defined $ARGV[0] ? $ARGV[0] : 0;
   8
   9 my $model = model -> new('filename' => 'pheno.mod');
  10
  11 my $scm = method::scm -> new( parameters             => ['CL', 'V'],
  12                               models                 => [$model],
  13                               continuous_covariates   => ['WGT'],
  14                               categorical_covariates => ['APGR'],
  15                               fix                    => 0,
  16                               nm_version             => 6,
  17                               picky                  => 1,
  18                               logfile                => 'scmlog.txt',
  19                               threads                => 1,
  20                               search_direction       => 'backward',
  21                               abort_on_fail          => 0,
  22                               base_criteria_vals     => [{'ofv' => 571.183}],
  23                               included_relations     => [{'CL' => {'WGT'=>{'state'=>2}},
  24                                                           'V'  => {'WGT'=>{'state'=>2},
  25                                                                    'APGR'=>{'state'=>2}}}],
  26                               test_relations         => { 'CL' => ['WGT'],
  27                                                           'V'  => ['WGT','APGR'] } );
  28
  29
  30 $scm -> run;
  31