<<results=tex>>=
    top_10 <- positions
    top_10 <- top_10[top_10$evaluator %in% basic_evaluators,]
    top_10 <- count_top(top_10, 10)
    print(xtable(top_10, caption='Number of bugs for which the FRM is in the top 10 results', label='tab:top_10'), table.placement='b', sanitize.rownames.function=identity)
@
