<<results=tex>>=
    get_predictions <- function(project){
        summary<-fivenum(project$sim_predictions$predictions)
        summary[c(1,3,5)]
    }
    predictions <- sapply(list(argouml, jabref, jedit, mucommander), get_predictions)
    colnames(predictions)<-rownames(projects)
    rownames(predictions)<-c('Minimum', 'Median', 'Maximum')
    print(xtable(predictions, caption='Number of methods predicted as relevant (\\bug)', label='tab:predictions', digits=0), table.placement='t') 
@
