<<results=tex>>=
    ranks <- positions
    ranks <- ranks[ranks$latest & ranks$frm,]
    ranks$evaluator <- droplevels(ranks$evaluator)
    ranks <- daply(ranks, .(project, evaluator), function(x) mean(1/x$position))
    colnames(ranks) <- format_name(colnames(ranks))
    rownames(ranks) <- format_name(rownames(ranks))
    ranks <- t(ranks)
    print(xtable(ranks, digits=3, caption='Mean reciprocal ranks for each source of information on each project', label='tab:ranks'), table.placement='b', sanitize.rownames.function=identity, hline.after=c(-1,0,nrow(ranks)-1,nrow(ranks)))
@
