 
   createComparisonTable = (scores) ->
     [ div, table, kvtable, thead, tbody, tr, trExpert, diffSpan, th, thIndent, td, hyperlink] = geyser.generate words 'div table.table.table-condensed table.table-kv thead tbody tr tr.y-expert span.y-diff th th.y-indent td div.y-link'
-    [ tdId ] = geyser.generate "td id='$id'"
+    [ tdId, thWide ] = geyser.generate "td id='$id'", "th colspan='#{scores.length + 1}' style='background:#f5f5f5'"
 
     createParameterTable = ({ parameters }) ->
       kvtable [

        return


      markup: table tbody [
        tr algorithmRow
        tr nameRow
        tr rocCurveRow
        tr inputParametersRow
        tr durationRow
        tr aucRow
        tr thresholdCriterionRow
        tr thresholdRow
        tr errorRow
        tr f1Row
        tr accuracyRow
        tr precisionRow
        tr recallRow
        tr specificityRow
        tr mccRow
        tr maxPerClassErrorRow
      ]
      behavior: ($element) ->
        renderRocCurves $element
        toggleAdvancedParameters $element

        aucRow.push td format4f auc.AUC
        #TODO fix error badge
        #errorRow.push td (format4f metrics.error_measure) + errorBadge #TODO change to bootstrap badge

      for criterion, criterionIndex in aucCriteria
        comparisonRows.push [ thWide "Outputs by #{criterion.caption}" ]
        for aucOutput in aucOutputs
          outputRow = [[ th aucOutput.caption ]]
          for score, scoreIndex in scores
            model = score.data.input.model
            #TODO what does it mean to have > 1 metrics
            metrics = head score.data.output.metrics
            auc = metrics.auc
            outputRow.push td auc[aucOutput.key][criterionIndex]

          comparisonRows.push outputRow

      renderRocCurves = ($element) ->
        forEach scores, (score, scoreIndex) ->
