\n";
+ return $analysis_html;
+}
+
+sub Tries_Concept_Analysis {
+ my ($mintries,$maxtries,$Concepts,$respdat,$ORdata) = @_;
+ my %ResponseData = %$respdat;
+ my $analysis_html = "
\n";
+ #
+ # Compute the data neccessary to make the plots
+ my @PlotData;
+ # Concept analysis
+ #
+ # Note: we do not bother with characterizing the students incorrect
+ # answers at the concept level because an incorrect answer for one foil
+ # may be a correct answer for another foil.
+ my %ConceptData;
+ foreach my $concept (@{$Concepts}) {
+ for (my $i=$mintries;$i<=$maxtries;$i++) {
+ #
+ # Gather the per-attempt data
+ my $cdata = $ConceptData{$concept}->[$i];
+ foreach my $foilid (@{$concept->{'foils'}}) {
+ $cdata->{'_correct'} +=
+ $ResponseData{$foilid}->[$i]->{'_correct'};
+ $cdata->{'_total'} +=
+ $ResponseData{$foilid}->[$i]->{'_total'};
+ }
+ push (@{$PlotData[$i]->{'_total'}},$cdata->{'_total'});
+ if ($cdata->{'_total'} == 0) {
+ push (@{$PlotData[$i]->{'_correct'}},0);
} else {
- $table .= '
';
+ push (@{$PlotData[$i]->{'_correct'}},
+ 100*$cdata->{'_correct'}/$cdata->{'_total'});
+ }
+ }
+ }
+ # Build a table for the plots
+ for (my $i=$mintries;$i<=$maxtries;$i++) {
+ my $minstu = $PlotData[$i]->{'_total'}->[0];
+ my $maxstu = $PlotData[$i]->{'_total'}->[0];
+ foreach my $count (@{$PlotData[$i]->{'_total'}}) {
+ if ($minstu > $count) {
+ $minstu = $count;
+ }
+ if ($maxstu < $count) {
+ $maxstu = $count;
}
}
- $table .= "\n";
+ $maxstu = 0 if (! defined($maxstu));
+ $minstu = 0 if (! defined($minstu));
+ my $title;
+ my $count = $ResponseData{'_total'}->[$i];
+ if ($count == 0) {
+ $count = 'no submissions';
+ } elsif ($count == 1) {
+ $count = '1 submission';
+ } else {
+ $count = $count.' submissions';
+ }
+ $title = 'Attempt '.$i.', '.$count;
+ my $graphlink = &Apache::loncommon::DrawGraph
+ ($title,'Concept Number','Percent Correct',
+ 100,$plotcolors,$PlotData[$i]->{'_correct'});
+ $analysis_html.= '
'.$graphlink."
\n";
}
- $table .= "
\n";
- return ($table);
+ $analysis_html .= "
\n";
+ return $analysis_html;
}
sub analyze_option_data_by_tries {
@@ -264,34 +466,16 @@ sub analyze_option_data_by_tries {
$maxtries = $mintries if (! defined($maxtries) || $maxtries < $mintries);
foreach my $row (@$PerformanceData) {
next if (! defined($row));
- my ($grading,$submission,$time,$tries) = @$row;
- my @Foilgrades = split('&',$grading);
- my @Foilsubs = split('&',$submission);
- for (my $numtries = 1; $numtries <= $maxtries; $numtries++) {
- if ($tries == $numtries) {
- foreach my $foilgrade (@Foilgrades) {
- my ($foilid,$correct) = split('=',$foilgrade);
- if ($correct) {
- $Trydata{$foilid}->[$numtries]->{'correct'}++;
- } else {
- $Trydata{$foilid}->[$numtries]->{'incorrect'}++;
- }
- }
+ my $tries = &get_tries_from_row($row);
+ my %Row = &Process_Row($row);
+ while (my ($foilid,$href) = each(%Row)) {
+ if (! ref($href)) {
+ $Trydata{$foilid}->[$tries] += $href;
+ next;
+ }
+ while (my ($option,$value) = each(%$href)) {
+ $Trydata{$foilid}->[$tries]->{$option}+=$value;
}
- }
- }
- foreach my $foilid (keys(%Trydata)) {
- foreach my $tryhash (@{$Trydata{$foilid}}) {
- next if ((! exists($tryhash->{'correct'}) &&
- ! exists($tryhash->{'incorrect'})) ||
- ($tryhash->{'correct'} < 1 &&
- $tryhash->{'incorrect'} < 1));
- $tryhash->{'total'} = $tryhash->{'correct'} +
- $tryhash->{'incorrect'};
- $tryhash->{'percent_corr'} = 100 *
- ($tryhash->{'correct'} /
- ($tryhash->{'correct'} + $tryhash->{'incorrect'})
- );
}
}
return %Trydata;
@@ -306,88 +490,243 @@ sub analyze_option_data_by_tries {
#########################################################
sub time_analysis {
my ($PerformanceData,$ORdata) = @_;
+ my ($table,$Foils,$Concepts) = &build_foil_index($ORdata);
+ if ((@$Concepts < 2) && ($ENV{'form.AnalyzeAs'} ne 'Foils')) {
+ $table = '
'.
+ &mt('Not enough data for concept analysis. '.
+ 'Performing Foil Analysis').
+ '
'.$table;
+ $ENV{'form.AnalyzeAs'} = 'Foils';
+ }
my $num_plots = $ENV{'form.NumPlots'};
- my ($table,@Foils) = &build_foil_index($ORdata);
- my ($begin_index,$end_index);
my $num_data = scalar(@$PerformanceData)-1;
my $percent = sprintf('%2f',100/$num_plots);
+ #
+ $table .= "
\n";
for (my $i=0;$i<$num_plots;$i++) {
- $begin_index = $i*int($num_data/$num_plots);
- $end_index = ($i+1)*int($num_data/$num_plots);
- my $lownum = sprintf('%2.1f',$i*$percent);
- $lownum =~ s/(\.0)$//;
- my $highnum = sprintf('%2.1f',($i+1)*$percent);
- $highnum =~ s/(\.0)$//;
- my ($plothtml,$starttime,$endtime,$data) =
- &analyze_option_data_by_time($PerformanceData,
- $begin_index,$end_index,
- $lownum.'% to '.$highnum.'% of submissions',
- @Foils);
- $table.=$plothtml;
+ ##
+ my $starttime = &Apache::lonhtmlcommon::get_date_from_form
+ ('startdate_'.$i);
+ my $endtime = &Apache::lonhtmlcommon::get_date_from_form
+ ('enddate_'.$i);
+ if (! defined($starttime) || ! defined($endtime)) {
+ my $sec_in_day = 86400;
+ my $last_sub_time = &get_time_from_row($PerformanceData->[-1]);
+ my ($sday,$smon,$syear);
+ (undef,undef,undef,$sday,$smon,$syear) =
+ localtime($last_sub_time - $sec_in_day*$i);
+ $starttime = &Time::Local::timelocal(0,0,0,$sday,$smon,$syear);
+ $endtime = $starttime + $sec_in_day;
+ if ($i == ($num_plots -1 )) {
+ $starttime = &get_time_from_row($PerformanceData->[0]);
+ }
+ }
+ my $startdateform = &Apache::lonhtmlcommon::date_setter
+ ('Statistics','startdate_'.$i,$starttime);
+ my $enddateform = &Apache::lonhtmlcommon::date_setter
+ ('Statistics','enddate_'.$i,$endtime);
+ #
+ my $begin_index;
+ my $end_index;
+ my $j;
+ while (++$j < scalar(@$PerformanceData)) {
+ last if (&get_time_from_row($PerformanceData->[$j]) > $starttime);
+ }
+ $begin_index = $j;
+ while (++$j < scalar(@$PerformanceData)) {
+ last if (&get_time_from_row($PerformanceData->[$j]) > $endtime);
+ }
+ $end_index = $j;
+ ##
+ my $interval = {
+ begin_index => $begin_index,
+ end_index => $end_index,
+ startdateform => $startdateform,
+ enddateform => $enddateform,
+ };
+ if ($ENV{'form.AnalyzeAs'} eq 'Foils') {
+ $table .= &Foil_Time_Analysis($PerformanceData,$ORdata,$Foils,
+ $interval);
+ } else {
+ $table .= &Concept_Time_Analysis($PerformanceData,$ORdata,
+ $Concepts,$interval);
+ }
}
+ #
return $table;
}
-sub analyze_option_data_by_time {
- my ($PerformanceData,$begin_index,$end_index,$description,@Foils) = @_;
+sub Foil_Time_Analysis {
+ my ($PerformanceData,$ORdata,$Foils,$interval) = @_;
+ my $analysis_html;
+ my $foilkey = &build_option_index($ORdata);
+ my ($begin_index,$end_index) = ($interval->{'begin_index'},
+ $interval->{'end_index'});
my %TimeData;
#
- # Get the start and end times for this segment of the plot
- my $starttime = $PerformanceData->[$begin_index]->[2];
- my $endtime = $PerformanceData->[$end_index ]->[2];
- #
# Compute the number getting the foils correct or incorrects
- for (my $i=$begin_index;$i<=$end_index;$i++) {
- my $row = $PerformanceData->[$i];
+ for (my $j=$begin_index;$j<=$end_index;$j++) {
+ my $row = $PerformanceData->[$j];
next if (! defined($row));
- my ($grading,$submission,$time,$tries) = @$row;
- my @Foilgrades = split('&',$grading);
- my @Foilsubs = split('&',$submission);
- foreach my $foilgrade (@Foilgrades) {
- my ($foilid,$correct) = split('=',$foilgrade);
- if ($correct) {
- $TimeData{$foilid}->{'correct'}++;
+ my %Row = &Process_Row($row);
+ while (my ($foilid,$href) = each(%Row)) {
+ if (! ref($href)) {
+ $TimeData{$foilid} += $href;
+ next;
+ }
+ while (my ($option,$value) = each(%$href)) {
+ $TimeData{$foilid}->{$option}+=$value;
+ }
+ }
+ }
+ my @Plotdata;
+ foreach my $foil (@$Foils) {
+ my $total = $TimeData{$foil}->{'_total'};
+ if ($total == 0) {
+ push(@{$Plotdata[0]},0);
+ } else {
+ push(@{$Plotdata[0]},
+ 100 * $TimeData{$foil}->{'_correct'} / $total);
+ }
+ my $total_incorrect = $total - $TimeData{$foil}->{'_correct'};
+ my $optionidx = 1;
+ foreach my $option (@{$ORdata->{'Options'}}) {
+ if ($total_incorrect == 0) {
+ push(@{$Plotdata[$optionidx]},0);
} else {
- $TimeData{$foilid}->{'incorrect'}++;
+ push(@{$Plotdata[$optionidx]},
+ 100 * $TimeData{$foil}->{$option} / $total_incorrect);
}
+ } continue {
+ $optionidx++;
}
}
#
- # Compute the total and percent correct
- my @Plotdata1;
- my @Plotdata2;
- foreach my $foilid (@Foils) {
- if (! exists($TimeData{$foilid}->{'correct'})) {
- $TimeData{$foilid}->{'correct'} = 0;
+ # Create the plot
+ my $count = $end_index-$begin_index;
+ my $title;
+ if ($count == 0) {
+ $title = 'no submissions';
+ } elsif ($count == 1) {
+ $title = 'one submission';
+ } else {
+ $title = $count.' submissions';
+ }
+ my $correctplot = &Apache::loncommon::DrawGraph($title,
+ 'Foil Number',
+ 'Percent Correct',
+ 100,
+ $plotcolors,
+ $Plotdata[0]);
+ for (my $j=0; $j< scalar(@{$Plotdata[0]});$j++) {
+ $Plotdata[0]->[$j]=0;
+ }
+ $count = $end_index-$begin_index-$TimeData{'_correct'};
+ if ($count == 0) {
+ $title = 'no submissions';
+ } elsif ($count == 1) {
+ $title = 'one submission';
+ } else {
+ $title = $count.' submissions';
+ }
+ my $incorrectplot = &Apache::loncommon::DrawGraph($title,
+ 'Foil Number',
+ 'Incorrect Option Choice',
+ 100,
+ $plotcolors,
+ @Plotdata);
+ $analysis_html.='