[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.80 and 1.83

version 1.80, 2004/04/01 21:14:32 version 1.83, 2004/04/06 15:45:13
Line 461  sub parse_field_selection { Line 461  sub parse_field_selection {
             }              }
         }          }
     }      }
       #
       # Always show all the sequence statistics (for now)
       foreach my $field (@SeqFields) {
           $field->{'selected'} = 'yes';
       }
     return;      return;
 }  }
   
Line 818  sub sequence_html_header { Line 823  sub sequence_html_header {
 sub sequence_html_output {  sub sequence_html_output {
     my ($seq) = @_;      my ($seq) = @_;
     my $data = $SeqStat{$seq->{'symb'}};      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>';      my $row = '<tr>';
     foreach my $field (@SeqFields) {      foreach my $field (@SeqFields) {
 #        next if ($field->{'selected'} ne 'yes');          next if ($field->{'selected'} ne 'yes');
         $row .= '<td bgcolor="'.$field->{'color'}.'"';          $row .= '<td bgcolor="'.$field->{'color'}.'"';
         if (exists($field->{'align'})) {          if (exists($field->{'align'})) {
             $row .= ' align="'.$field->{'align'}.'"';              $row .= ' align="'.$field->{'align'}.'"';
Line 970  sub degrees_plot { Line 969  sub degrees_plot {
     my $diffdata .= '<data>'.join(',',@Labels).'</data>'.$/.      my $diffdata .= '<data>'.join(',',@Labels).'</data>'.$/.
                     '<data>'.join(',',@Diff).'</data>'.$/;                      '<data>'.join(',',@Diff).'</data>'.$/;
     #      #
       my $title = 'Degree of Discrimination\nand Degree of Difficulty';
       if ($xmax > 50) {
           $title = 'Degree of Discrimination and Degree of Difficulty';
       }
       #
     $plot=<<"END";      $plot=<<"END";
 <gnuplot   <gnuplot 
     texfont="10"      texfont="10"
Line 980  sub degrees_plot { Line 984  sub degrees_plot {
     align="center"      align="center"
     border="on"      border="on"
     transparent="on"      transparent="on"
     alttag="Sample Plot"      alttag="Degree of Discrimination and Degree of Difficulty Plot"
     samples="100"      samples="100"
     bgcolor="xffffff"      bgcolor="xffffff"
     height="$height"      height="$height"
Line 989  sub degrees_plot { Line 993  sub degrees_plot {
         pos="top right"          pos="top right"
         title=""          title=""
         box="off" />          box="off" />
     <title>Degree of Discrmination and Degree of Difficulty</title>      <title>$title</title>
     <axis xmin="0" ymin="$ymin" xmax="$xmax" ymax="$ymax" color="x000000" />      <axis xmin="0" ymin="$ymin" xmax="$xmax" ymax="$ymax" color="x000000" />
     <xlabel>Problem Number</xlabel>      <xlabel>Problem Number</xlabel>
     <curve       <curve 
Line 1053  sub tries_data_plot { Line 1057  sub tries_data_plot {
                           '<data>'.join(',',@Mean).'</data>'.$/.                            '<data>'.join(',',@Mean).'</data>'.$/.
                           '<data>'.join(',',@STD).'</data>'.$/;                            '<data>'.join(',',@STD).'</data>'.$/;
     #      #
       my $title = 'Mean and S.D. of Tries';
       if ($xmax > 25) {
           $title = 'Mean and Standard Deviation of Tries';
       }
       #
     $plot=<<"END";      $plot=<<"END";
 <gnuplot   <gnuplot 
     texfont="10"      texfont="10"
Line 1063  sub tries_data_plot { Line 1072  sub tries_data_plot {
     align="center"      align="center"
     border="on"      border="on"
     transparent="on"      transparent="on"
     alttag="Sample Plot"      alttag="Mean and S.D of Tries Plot"
     samples="100"      samples="100"
     bgcolor="xffffff"      bgcolor="xffffff"
     height="$height"      height="$height"
     width="$width">      width="$width">
     <title>Mean and S.D. of Tries</title>      <title>$title</title>
     <axis xmin="0" ymin="0" xmax="$xmax" ymax="$ymax" color="x000000" />      <axis xmin="0" ymin="0" xmax="$xmax" ymax="$ymax" color="x000000" />
     <xlabel>Problem Number</xlabel>      <xlabel>Problem Number</xlabel>
       <ylabel>Number of Tries</ylabel>
     <curve       <curve 
         linestyle="yerrorbars"          linestyle="yerrorbars"
         name="S.D. Tries"           name="S.D. Tries" 
Line 1103  sub plot_dropdown { Line 1113  sub plot_dropdown {
     my @Additional_Plots = (      my @Additional_Plots = (
                             { graphable=>'yes',                              { graphable=>'yes',
                               name => 'degrees',                                name => 'degrees',
                               title => 'DoDisc and DoDiff' },                                title => 'Difficulty Indexes' },
                             { graphable=>'yes',                              { graphable=>'yes',
                               name => 'tries statistics',                                name => 'tries statistics',
                               title => 'Mean and S.D. of Tries' });                                title => 'Tries Statistics' });
     #      #
     my $Str= "\n".'<select name="plot" size="1">';      my $Str= "\n".'<select name="plot" size="1">';
     $Str .= '<option name="none"></option>'."\n";      $Str .= '<option name="none"></option>'."\n";
     $Str .= '<option name="none2">none</option>'."\n";      $Str .= '<option name="none2">none</option>'."\n";
     foreach my $field (@Fields,@Additional_Plots) {      foreach my $field (@Additional_Plots,@Fields) {
         if (! exists($field->{'graphable'}) ||          if (! exists($field->{'graphable'}) ||
             $field->{'graphable'} ne 'yes') {              $field->{'graphable'} ne 'yes') {
             next;              next;
Line 1173  sub Excel_output { Line 1183  sub Excel_output {
     }      }
     my $excel_sheet = $excel_workbook->addworksheet(      my $excel_sheet = $excel_workbook->addworksheet(
         &Apache::loncommon::clean_excel_name($sheetname));          &Apache::loncommon::clean_excel_name($sheetname));
       #
       my $format = &Apache::loncommon::define_excel_formats($excel_workbook);
     ##      ##
     ## Begin creating excel sheet      ## Begin creating excel sheet
     ##      ##
Line 1180  sub Excel_output { Line 1192  sub Excel_output {
     #      #
     # Put the course description in the header      # Put the course description in the header
     $excel_sheet->write($rows_output,$cols_output++,      $excel_sheet->write($rows_output,$cols_output++,
                    $ENV{'course.'.$ENV{'request.course.id'}.'.description'});                     $ENV{'course.'.$ENV{'request.course.id'}.'.description'},
                           $format->{'h1'});
     $cols_output += 3;      $cols_output += 3;
     #      #
     # Put a description of the sections listed      # Put a description of the sections listed
     my $sectionstring = '';      my $sectionstring = '';
     my @Sections = @Apache::lonstatistics::SelectedSections;      $excel_sheet->write($rows_output,$cols_output++,
     if (scalar(@Sections) > 1) {                          &Apache::lonstathelpers::sections_description
         if (scalar(@Sections) > 2) {                              (@Apache::lonstatistics::SelectedSections),
             my $last = pop(@Sections);                          $format->{'h3'});
             $sectionstring = "Sections ".join(', ',@Sections).', and '.$last;      $cols_output += scalar(@Apache::lonstatistics::SelectedSections);
         } else {  
             $sectionstring = "Sections ".join(' and ',@Sections);  
         }  
     } else {  
         if ($Sections[0] eq 'all') {  
             $sectionstring = "All sections";  
         } else {  
             $sectionstring = "Section ".$Sections[0];  
         }  
     }  
     $excel_sheet->write($rows_output,$cols_output++,$sectionstring);  
     $cols_output += scalar(@Sections);  
     #      #
     # Time restrictions      # Time restrictions
     my $time_string;      my $time_string;
Line 1217  sub Excel_output { Line 1218  sub Excel_output {
         # See note above about lonlocal:locallocaltime          # See note above about lonlocal:locallocaltime
         $time_string .= 'Data collected before '.localtime($endtime).'.';          $time_string .= 'Data collected before '.localtime($endtime).'.';
     }      }
       if (defined($time_string)) {
           $excel_sheet->write($rows_output,$cols_output++,$time_string);
           $cols_output+= 5;
       }
     #      #
     # Put the date in there too      # Put the date in there too
     $excel_sheet->write($rows_output,$cols_output++,      $excel_sheet->write($rows_output,$cols_output++,
Line 1224  sub Excel_output { Line 1229  sub Excel_output {
     #      #
     $rows_output++;       $rows_output++; 
     $cols_output=0;      $cols_output=0;
     #      ##
     # Long Headers      ## Sequence Statistics
     foreach my $field (@Fields) {      ## 
         next if ($field->{'name'} eq 'problem_num');      &write_headers($excel_sheet,$format,\$rows_output,\$cols_output,
         next if ($field->{'selected'} ne 'yes');                     \@SeqFields);
         if (exists($field->{'long_title'})) {      foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
           next if ($seq->{'num_assess'} < 1);
           my $data = $SeqStat{$seq->{'symb'}};
           $cols_output=0;
           foreach my $field (@SeqFields) {
               next if ($field->{'selected'} ne 'yes');
             $excel_sheet->write($rows_output,$cols_output++,              $excel_sheet->write($rows_output,$cols_output++,
                                 $field->{'long_title'});                                  $data->{$field->{'name'}});
         } else {  
             $excel_sheet->write($rows_output,$cols_output++,'');  
         }          }
           $rows_output++;
           $cols_output=0;
     }      }
       ##
       ## Resource Statistics
       ##
     $rows_output++;      $rows_output++;
     $cols_output=0;      $cols_output=0;
     # Brief headers      &write_headers($excel_sheet,$format,\$rows_output,\$cols_output,
     foreach my $field (@Fields) {                     \@Fields);
         next if ($field->{'selected'} ne 'yes');      #
         next if ($field->{'name'} eq 'problem_num');  
         # Use english for excel as I am not sure how well excel handles   
         # other character sets....  
         $excel_sheet->write($rows_output,$cols_output++,$field->{'title'});  
     }  
     $rows_output++;  
     foreach my $data (@StatsArray) {      foreach my $data (@StatsArray) {
         $cols_output=0;          $cols_output=0;
         foreach my $field (@Fields) {          foreach my $field (@Fields) {
Line 1256  sub Excel_output { Line 1263  sub Excel_output {
                                 $data->{$field->{'name'}});                                  $data->{$field->{'name'}});
         }          }
         $rows_output++;          $rows_output++;
           $cols_output=0;
     }      }
     #      #
     $excel_workbook->close();      $excel_workbook->close();
Line 1268  sub Excel_output { Line 1276  sub Excel_output {
     return;      return;
 }  }
   
   ##
   ## &write_headers
   ##
   sub write_headers {
       my ($excel_sheet,$format,$rows_output,$cols_output,$Fields) = @_;
       ##
       ## First the long titles
       foreach my $field (@{$Fields}) {
           next if ($field->{'name'} eq 'problem_num');
           next if ($field->{'selected'} ne 'yes');
           if (exists($field->{'long_title'})) {
               $excel_sheet->write($$rows_output,${$cols_output},
                                   $field->{'long_title'},
                                   $format->{'bold'});
           } else {
               $excel_sheet->write($$rows_output,${$cols_output},'');
           }
           ${$cols_output}+= 1;
       }
       ${$cols_output} =0;
       ${$rows_output}+=1;
       ##
       ## Then the short titles
       foreach my $field (@{$Fields}) {
           next if ($field->{'selected'} ne 'yes');
           next if ($field->{'name'} eq 'problem_num');
           # Use english for excel as I am not sure how well excel handles 
           # other character sets....
           $excel_sheet->write($$rows_output,$$cols_output,
                               $field->{'title'},
                               $format->{'bold'});
           $$cols_output+=1;
       }
       ${$cols_output} =0;
       ${$rows_output}+=1;
       return;
   }
   
 ##################################################  ##################################################
 ##################################################  ##################################################
 ##  ##
Line 1301  sub compute_all_statistics { Line 1347  sub compute_all_statistics {
     foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {      foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
         last if ($c->aborted);          last if ($c->aborted);
         next if ($seq->{'num_assess'} < 1);          next if ($seq->{'num_assess'} < 1);
           &compute_sequence_statistics($seq);
         &compute_statistics_on_sequence($seq);          &compute_statistics_on_sequence($seq);
     }      }
 }  }
Line 1404  sub get_statistics { Line 1451  sub get_statistics {
         $data->{'deg_of_disc'} =           $data->{'deg_of_disc'} = 
             &compute_discrimination_factor($resource,$part,$sequence);              &compute_discrimination_factor($resource,$part,$sequence);
     }      }
       #
       # Store in metadata if computations were done for all students
       if ($Apache::lonstatistics::SelectedSections[0] eq 'all' &&
           $data->{'num_students'} > 1) {
           my %storestats;
           #
           my $urlres=(&Apache::lonnet::decode_symb($resource->{'symb'}))[2];
           my ($dom,$user) = $urlres=~/^(\w+)\/(\w+)/; 
           my $preamble = $courseid.'___'.$urlres.'___';
           #
           $storestats{$preamble.'timestamp'}  = time;
           $storestats{$preamble.'stdno'}      = $data->{'num_students'};
           $storestats{$preamble.'avetries'}   = $data->{'mean_tries'};
           $storestats{$preamble.'difficulty'} = $data->{'deg_of_diff'};
           if ($SelectedFields{'deg_of_disc'}) {
               $storestats{$preamble.'discrimination'} = $data->{'deg_of_disc'};
           }
           #
           &Apache::lonnet::put('nohist_resevaldata',\%storestats,$dom,$user);
       }
     return $data;      return $data;
 }  }
   
Line 1431  sub compute_discrimination_factor { Line 1498  sub compute_discrimination_factor {
     }      }
     #      #
     # rank      # rank
       my ($starttime,$endtime) = &Apache::lonstathelpers::get_time_limits();
     my $ranking =       my $ranking = 
         &Apache::loncoursedata::rank_students_by_scores_on_resources          &Apache::loncoursedata::rank_students_by_scores_on_resources
         (\@Resources,          (\@Resources,
          \@Apache::lonstatistics::SelectedSections,           \@Apache::lonstatistics::SelectedSections,
          $Apache::lonstatistics::enrollment_status,undef);           $Apache::lonstatistics::enrollment_status,undef,
            $starttime,$endtime);
     #      #
     # compute their percent scores on the problems in the sequence,      # compute their percent scores on the problems in the sequence,
     my $number_to_grab = int(scalar(@{$ranking})/4);      my $number_to_grab = int(scalar(@{$ranking})/4);
Line 1447  sub compute_discrimination_factor { Line 1516  sub compute_discrimination_factor {
             $_->[&Apache::loncoursedata::RNK_student()];               $_->[&Apache::loncoursedata::RNK_student()]; 
           } @{$ranking}[($num_students-$number_to_grab)..($num_students-1)];            } @{$ranking}[($num_students-$number_to_grab)..($num_students-1)];
     my ($bottom_sum,$bottom_max) =       my ($bottom_sum,$bottom_max) = 
         &Apache::loncoursedata::get_sum_of_scores($resource,$part,\@BottomSet);          &Apache::loncoursedata::get_sum_of_scores($resource,$part,\@BottomSet,
                                                     undef,$starttime,$endtime);
     my ($top_sum,$top_max) =       my ($top_sum,$top_max) = 
         &Apache::loncoursedata::get_sum_of_scores($resource,$part,\@TopSet);          &Apache::loncoursedata::get_sum_of_scores($resource,$part,\@TopSet,
                                                     undef,$starttime,$endtime);
     my $deg_of_disc;      my $deg_of_disc;
     if ($top_max == 0 || $bottom_max==0) {      if ($top_max == 0 || $bottom_max==0) {
         $deg_of_disc = 'nan';          $deg_of_disc = 'nan';
Line 1519  sub compute_sequence_statistics { Line 1590  sub compute_sequence_statistics {
     $SeqStat{$symb}->{'countmax'} = $cmax;      $SeqStat{$symb}->{'countmax'} = $cmax;
     $SeqStat{$symb}->{'countmin'} = $cmin;      $SeqStat{$symb}->{'countmin'} = $cmin;
     $SeqStat{$symb}->{'countstd'} = $cSTD;      $SeqStat{$symb}->{'countstd'} = $cSTD;
       $SeqStat{$symb}->{'countmean'} = $cMean;
     $SeqStat{$symb}->{'count'} = $ccount;      $SeqStat{$symb}->{'count'} = $ccount;
     $SeqStat{$symb}->{'items'} = $K;      $SeqStat{$symb}->{'items'} = $K;
     $SeqStat{$symb}->{'KR-21'}=$kr_21;      $SeqStat{$symb}->{'KR-21'}=$kr_21;
   
     return;      return;
 }  }
   
Removed from v.1.80  
changed lines
  Added in v.1.83

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