view release on metacpan or  search on metacpan

roc_ui.pl  view on Meta::CPAN

######## Confidence Interval #########
my $conf_scale=$right->Scale('-orient'=> 'horizontal',
                           '-from'=> 0, '-to'=> 100, '-tickinterval'=> 0, '-width'=> 15, 
                           '-length'=> 340,
                           '-label'=> "2-sided Confidence Interval (%)",
                          -variable=>\$conf,
           #-command=> [\&draw_roc, [$c, @points,\$model_type,\$conf,\$var_grp_ref]], 
           )->grid(qw/-row 0 -column 0 -columnspan 2  -sticky ew/);
######################################


######## Model option button #########
my $model_button=$right->Menubutton(-text=>'Model:   ',
    -relief=>'raised' )->grid(qw/-row 1 -column 0  -sticky ew/);
my $model=$right->Optionmenu(-variable => \$model_type,
                     -options => ['grp0 < grp1', 'grp0 > grp1'], 
                   #   -options=>['GGGGGGG', 'CCCCCC'],
                   #-command=>sub{print "$model_type \n";},