<<results=tex>>=
    model_params <- daply(models, .(project), function(x) x[which.max(x$bug_number),])
    model_params <- model_params[,c('Intercept', 'StackEvaluator', 'BugLanguageEvaluator', 'BugCountEvaluator', 'CorpusEvaluator', 'CoverageEvaluator')]
    x <- xtable(t(model_params), caption='Linear regression coefficients at end of evaluation for each evaluator', label='tab:model')
    print(x, table.placement='tb')
@
