<<results=tex>>=
    to_round <- sapply(coverage_tests, is.numeric)
    coverage_tests[,to_round] <- sapply(coverage_tests[,to_round], round, 3)
    colnames(coverage_tests) <- format_name(colnames(coverage_tests))
    rownames(coverage_tests) <- format_name(rownames(coverage_tests))
    print(xtable(t(coverage_tests), caption='Coverage levels for projects', label='tab:coverage_tests'), table.placement='tb')
@
