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