[BACK]Return to lonproblemstatistics.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonproblemstatistics.pm between versions 1.78 and 1.79

version 1.78, 2004/03/29 19:50:23 version 1.79, 2004/04/01 20:02:56
Line 61  use Apache::lonstathelpers(); Line 61  use Apache::lonstathelpers();
 use Time::HiRes;  use Time::HiRes;
   
 my @StatsArray;  my @StatsArray;
   my %SeqStat;    # keys are symbs, values are hash refs
   
 ##  ##
 ## Localization notes:  ## Localization notes:
Line 69  my @StatsArray; Line 70  my @StatsArray;
 ## header for plots created with Graph.pm, both of which more than likely do  ## header for plots created with Graph.pm, both of which more than likely do
 ## not support localization.  ## not support localization.
 ##  ##
   #
   #
   ##
   ## Description of Field attributes
   ##
   ## Attribute     Required   Value       Meaning or Use
   ##
   ## name            yes      any scalar  Used to uniquely identify field
   ## title           yes      any scalar  This is what the user sees to identify
   ##                                      the field.  Passed through &mt().
   ## long_title      yes      any scalar  Used as graph heading and in excel
   ##                                      output.  NOT translated
   ## align           no    (left|right|center)  HTML cell contents alignment
   ## color           yes      html color  HTML cell background color
   ##                                      used to visually group statistics
   ## special         no          (link)   Indicates a link, target is name.link
   ##                                      Currently set in &get_statistics()
   ## graphable       no      (yes|no)     Can a bar graph of the field be 
   ##                                      produced?
   ## sortable        no      (yes|no)     Should a sort link be put in the
   ##                                      column header?
   ## selectable      yes     (yes|no)     Can the column be removed from the
   ##                                      statistics display?
   ## selected        yes     (yes|no)     Is the column selected by default?
   ##
 my @Fields = (  my @Fields = (
            { name => 'problem_num',             { name => 'problem_num',
              title => 'P#',               title => 'P#',
Line 236  my @Fields = ( Line 262  my @Fields = (
            },             },
 );  );
   
   my @SeqFields = (
              { name   => 'title',
                title  => 'Sequence',
                align  => 'left',
                color  => '#FFFFE6',
                special  => 'no',
                sortable => 'no', 
                selectable => 'yes',
                selected => 'no',
              },
              { name   => 'items',
                title  => '#Items',
                align  => 'right',
                color  => '#FFFFE6',
                format => '%4d',
                sortable  => 'no',
                graphable => 'no',
                long_title => 'Number of Items in Sequence',
                selectable => 'yes',
                selected => 'no',
              },
              { name   => 'scoremean',
                title  => 'Score Mean',
                align  => 'right',
                color  => '#FFFFE6',
                format => '%4.2f',
                sortable  => 'no',
                graphable => 'no',
                long_title => 'Mean Sequence Score',
                selectable => 'yes',
                selected => 'no',
              },
              { name   => 'scorestd',
                title  => 'Score STD',
                align  => 'right',
                color  => '#FFFFE6',
                format => '%4.2f',
                sortable  => 'no',
                graphable => 'no',
                long_title => 'Standard Deviation of Sequence Scores',
                selectable => 'yes',
                selected => 'no',
              },
              { name   => 'scoremax',
                title  => 'Score Max',
                align  => 'right',
                color  => '#FFFFE6',
                format => '%4.2f',
                sortable  => 'no',
                graphable => 'no',
                long_title => 'Maximum Sequence Score',
                selectable => 'yes',
                selected => 'no',
              },
              { name   => 'scoremin',
                title  => 'Score Min',
                align  => 'right',
                color  => '#FFFFE6',
                format => '%4.2f',
                sortable  => 'no',
                graphable => 'no',
                long_title => 'Minumum Sequence Score',
                selectable => 'yes',
                selected => 'no',
              },
              { name   => 'scorecount',
                title  => 'Score N',
                align  => 'right',
                color  => '#FFFFE6',
                format => '%4d',
                sortable  => 'no',
                graphable => 'no',
                long_title => 'Number of Students in score computations',
                selectable => 'yes',
                selected => 'no',
              },
              { name   => 'countmean',
                title  => 'Count Mean',
                align  => 'right',
                color  => '#FFFFFF',
                format => '%4.2f',
                sortable  => 'no',
                graphable => 'no',
                long_title => 'Mean Sequence Score',
                selectable => 'yes',
                selected => 'no',
              },
              { name   => 'countstd',
                title  => 'Count STD',
                align  => 'right',
                color  => '#FFFFFF',
                format => '%4.2f',
                sortable  => 'no',
                graphable => 'no',
                long_title => 'Standard Deviation of Sequence Scores',
                selectable => 'yes',
                selected => 'no',
              },
              { name   => 'countmax',
                title  => 'Count Max',
                align  => 'right',
                color  => '#FFFFFF',
                format => '%4.2f',
                sortable  => 'no',
                graphable => 'no',
                long_title => 'Maximum Number of Correct Problems',
                selectable => 'yes',
                selected => 'no',
              },
              { name   => 'countmin',
                title  => 'Count Min',
                align  => 'right',
                color  => '#FFFFFF',
                format => '%4.2f',
                sortable  => 'no',
                graphable => 'no',
                long_title => 'Minumum Number of Correct Problems',
                selectable => 'yes',
                selected => 'no',
              },
              { name   => 'count',
                title  => 'Count N',
                align  => 'right',
                color  => '#FFFFFF',
                format => '%4d',
                sortable  => 'no',
                graphable => 'no',
                long_title => 'Number of Students in score computations',
                selectable => 'yes',
                selected => 'no',
              },
              { name   => 'KR-21',
                title  => 'KR-21',
                align  => 'right',
                color  => '#FFAAAA',
                format => '%4.2f',
                sortable  => 'no',
                graphable => 'no',
                long_title => 'KR-21 reliability statistic',
                selectable => 'yes',
                selected => 'no',
              },           
   );
   
 my %SelectedFields;  my %SelectedFields;
   
 sub parse_field_selection {  sub parse_field_selection {
Line 380  sub BuildProblemStatisticsPage { Line 550  sub BuildProblemStatisticsPage {
     #      #
     # Clear the package variables      # Clear the package variables
     undef(@StatsArray);      undef(@StatsArray);
       undef(%SeqStat);
     #      #
     # Finally let the user know we are here      # Finally let the user know we are here
     my $interface = &CreateInterface();      my $interface = &CreateInterface();
Line 435  sub BuildProblemStatisticsPage { Line 606  sub BuildProblemStatisticsPage {
             undef($plot);              undef($plot);
         }          }
         if ($sortby eq 'container' && ! defined($plot)) {          if ($sortby eq 'container' && ! defined($plot)) {
               &output_sequence_statistics($r);
             &output_html_by_sequence($r);              &output_html_by_sequence($r);
         } else {          } else {
             if (defined($plot)) {              if (defined($plot)) {
                 &make_plot($r,$plot);                  &make_plot($r,$plot);
             }              }
             &output_html_stats($r);              &output_html_stats($r);
               &output_sequence_statistics($r);
         }          }
     }      }
     return;      return;
 }  }
   
   sub output_sequence_statistics {
       my ($r) = @_;
       my $c=$r->connection();
       $r->print('<h2>'.&mt('Sequence Statistics').'</h2>');
       $r->print('<table border="0"><tr><td bgcolor="#777777">'."\n".
                 '<table border="0" cellpadding="3">'."\n".
                 '<tr bgcolor="#FFFFE6">');
       $r->print(&sequence_html_header());
       foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
           last if ($c->aborted);
           next if ($seq->{'num_assess'} < 1);
           &compute_sequence_statistics($seq);
           $r->print(&sequence_html_output($seq));
       }
       $r->print('</table>');
       $r->print('</table>');
       $r->rflush();
       return;
   }
   
   
 ##########################################################  ##########################################################
 ##########################################################  ##########################################################
 ##  ##
Line 584  sub statistics_table_header { Line 778  sub statistics_table_header {
     return $header_row;      return $header_row;
 }  }
   
   sub sequence_html_header {
       my $Str .= '<tr>';
       foreach my $field (@SeqFields) {
   #        next if ($field->{'selected'} ne 'yes');
           $Str .= '<th bgcolor="'.$field->{'color'}.'"';
           $Str .= '>'.$field->{'title'}.'</th>';
       }
       $Str .= '</tr>';
       return $Str;
   }
   
   
   sub sequence_html_output {
       my ($seq) = @_;
       my $data = $SeqStat{$seq->{'symb'}};
   #    $SeqStat{$symb}->{'max'}
   #    $SeqStat{$symb}->{'min'}
   #    $SeqStat{$symb}->{'mean'}
   #    $SeqStat{$symb}->{'std'}
   #    $SeqStat{$symb}->{'count'}
   #    $SeqStat{$symb}->{'max_possible'}
       my $row = '<tr>';
       foreach my $field (@SeqFields) {
   #        next if ($field->{'selected'} ne 'yes');
           $row .= '<td bgcolor="'.$field->{'color'}.'"';
           if (exists($field->{'align'})) {
               $row .= ' align="'.$field->{'align'}.'"';
           }
           $row .= '>';
           if (exists($field->{'format'})) {
               $row .= sprintf($field->{'format'},$data->{$field->{'name'}});
           } else {
               $row .= $data->{$field->{'name'}};
           }
           $row .= '</td>';
       }
       $row .= '</tr>'."\n";
       return $row;
   }
   
 ####################################################  ####################################################
 ####################################################  ####################################################
 ##  ##
Line 1148  sub get_statistics { Line 1382  sub get_statistics {
     return $data;      return $data;
 }  }
   
   
 ###############################################  ###############################################
 ###############################################  ###############################################
   
Line 1205  sub compute_discrimination_factor { Line 1438  sub compute_discrimination_factor {
   
 ###############################################  ###############################################
 ###############################################  ###############################################
   ##
   ## Compute KR-21
   ##
   ## To compute KR-21, you need the following information:
   ##
   ## K=the number of items in your test
   ## M=the mean score on the test
   ## s=the standard deviation of the scores on your test 
   ##
   ## then:
   ## 
   ## KR-21 rk= [K/(K-1)] * [1- (M*(K-M))/(K*s^2))]
   ##
   ###############################################
   ###############################################
   sub compute_sequence_statistics {
       my ($seq) = @_;
       my $symb = $seq->{'symb'};
       my @Resources;
       foreach my $res (@{$seq->{'contents'}}) {
           next if ($res->{'type'} ne 'assessment');
           push (@Resources,$res->{'symb'});
       }
       my ($starttime,$endtime) = &Apache::lonstathelpers::get_time_limits();
       #
       # First compute statistics based on student scores
       my ($smin,$smax,$sMean,$sSTD,$scount,$sMAX) = 
           &Apache::loncoursedata::score_stats
                       (\@Apache::lonstatistics::SelectedSections,
                        $Apache::lonstatistics::enrollment_status,
                        \@Resources,$starttime,$endtime,undef);
       $SeqStat{$symb}->{'title'}  = $seq->{'title'};
       $SeqStat{$symb}->{'scoremax'}  = $smax;
       $SeqStat{$symb}->{'scoremin'}  = $smin;
       $SeqStat{$symb}->{'scoremean'} = $sMean;
       $SeqStat{$symb}->{'scorestd'}  = $sSTD;
       $SeqStat{$symb}->{'scorecount'} = $scount;
       $SeqStat{$symb}->{'max_possible'} = $sMAX;
       #
       # Compute statistics based on the number of correct problems
       # 'correct' is taken to mean 
       my ($cmin,$cmax,$cMean,$cSTD,$ccount)=
           &Apache::loncoursedata::count_stats
           (\@Apache::lonstatistics::SelectedSections,
            $Apache::lonstatistics::enrollment_status,
            \@Resources,$starttime,$endtime,undef);
       my $K = $seq->{'num_assess_parts'};
       my $kr_21;
       if ($K > 1 && $cSTD > 0) {
           $kr_21 =  ($K/($K-1)) * (1 - $cMean*($K-$cMean)/($K*$cSTD**2));
       } else {
           $kr_21 = 'nan';
       }
       $SeqStat{$symb}->{'countmax'} = $cmax;
       $SeqStat{$symb}->{'countmin'} = $cmin;
       $SeqStat{$symb}->{'countstd'} = $cSTD;
       $SeqStat{$symb}->{'count'} = $ccount;
       $SeqStat{$symb}->{'items'} = $K;
       $SeqStat{$symb}->{'KR-21'}=$kr_21;
   
       return;
   }
   
   
   
 =pod   =pod 
   
Line 1265  Number of Students had at least one disc Line 1562  Number of Students had at least one disc
   
 =cut  =cut
   
   
 ############################################################  
 ############################################################  
 ##  
 ##  How this all works:  
 ##     Statistics are computed by calling &get_statistics with the sequence,  
 ##     resource, and part id to run statistics on.  At various places within  
 ##     the loops which compute the statistics, as well as before and after   
 ##     the entire process, subroutines can be called.  The subroutines are  
 ##     registered to the following hooks:  
 ##  
 ##         hook          subroutine inputs  
 ##     ----------------------------------------------------------  
 ##         pre           $r,$count  
 ##         pre_seq       $r,$count,$seq  
 ##         pre_res       $r,$count,$seq,$res  
 ##         calc          $r,$count,$seq,$res,$data  
 ##         post_res      $r,$count,$seq,$res  
 ##         post_seq      $r,$count,$seq  
 ##         post          $r,$count  
 ##  
 ##         abort         $r  
 ##  
 ##     subroutines will be called in the order in which they are registered.  
 ##     
 ############################################################  
 ############################################################  
 {  
   
 my %hooks;  
 my $aborted = 0;  
   
 sub abort_computation {  
     $aborted = 1;  
 }  
   
 sub clear_hooks {  
     $aborted = 0;  
     undef(%hooks);  
 }  
   
 sub register_hook {  
     my ($hookname,$subref)=@_;  
     if ($hookname !~ /^(pre|pre_seq|pre_res|post|post_seq|post_res|calc)$/){  
         return;  
     }  
     if (ref($subref) ne 'CODE') {  
         &Apache::lonnet::logthis('attempt to register hook to non-code: '.  
                                  $hookname,' = '.$subref);  
     } else {  
         if (exists($hooks{$hookname})) {  
             push(@{$hooks{$hookname}},$subref);  
         } else {  
             $hooks{$hookname} = [$subref];  
         }  
     }  
     return;  
 }  
   
 sub run_hooks {  
     my $context = shift();  
     foreach my $hook (@{$hooks{$context}}) {   
         if ($aborted && $context ne 'abort') {  
             last;  
         }  
         my $retvalue = $hook->(@_);  
         if (defined($retvalue) && $retvalue eq '0') {  
             $aborted = 1 if (! $aborted);  
         }  
     }  
 }  
   
 sub run_statistics {  
     my ($r) = @_;  
     my $count = 0;  
     &run_hooks('pre',$r,$count);  
     foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {  
         last if ($aborted);  
         next if ($seq->{'num_assess'}<1);  
         &run_hooks('pre_seq',$r,$count,$seq);  
         foreach my $res (@{$seq->{'contents'}}) {  
             last if ($aborted);  
             next if ($res->{'type'} ne 'assessment');  
             &run_hooks('pre_res',$r,$count,$seq,$res);              
             foreach my $part (@{$res->{'parts'}}) {  
                 last if ($aborted);  
                 #  
                 # This is where all the work happens  
                 my $data = &get_statistics($seq,$res,$part,++$count);  
                 &run_hooks('calc',$r,$count,$seq,$res,$part,$data);   
             }  
             &run_hooks('post_res',$r,$count,$seq,$res);  
         }  
         &run_hooks('post_seq',$r,$count,$seq);  
     }  
     if ($aborted) {  
         &run_hooks('abort',$r);  
     } else {  
         &run_hooks('post',$r,$count);  
     }  
     return;  
 }  
   
 } # End of %hooks scope  
   
 ############################################################  ############################################################
 ############################################################  ############################################################
   
Removed from v.1.78  
changed lines
  Added in v.1.79

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>