<<results=tex>>=
    project_details <-ddply(positions, .(project), function(x) data.frame(`Fixes`=nlevels(factor(x$archive.fix)), `Bugs`=nlevels(factor(x$bug_id))))
    rownames(project_details) <- format_name(project_details$project)
    project_details$project <- NULL
    x <- xtable(t(project_details), caption='Project details', label='tab:project_details')
    print(x, table.placement='tb')
@
