<<results=tex>>=
    relevant_methods <- positions
    relevant_methods <- relevant_methods[relevant_methods$frm&relevant_methods$latest&relevant_methods$evaluator=='BugCountEvaluator',]
    relevant_methods <- table(relevant_methods$project,
                             cut(sapply(relevant_methods$related.methods, length),
                                 breaks=c(-Inf,0,1,5,10,Inf),
                                 labels=c('0','1','2-5','6-10','11+')
                             )
                       )
    rownames(relevant_methods) <- format_name(rownames(relevant_methods))
    latex <- print(xtable(relevant_methods, caption='Number of methods related to each bug', label='tab:relevant_methods'), table.placement='tb', file='/dev/null')
    latex <- sub("\\hline", paste("__X__ \\textbf{No. methods}", sep=''), latex, fixed=TRUE)
    latex <- sub("\\hline", paste(c("\\hline \\textbf{No. bugs}",rep(' & ',ncol(relevant_methods))," \\\\"), collapse=''), latex, fixed=TRUE)
    latex <- sub("__X__", "\\hline", latex, fixed=TRUE)
    cat(latex)
@
