<<results=tex>>=
    format_breaks <- function(breaks){
        percent<-breaks/rep(breaks[nrow(breaks),], each=nrow(breaks))
        percent<-sapply(percent, fmt, app='%')
        ret<-paste(breaks, ' (', percent, ')', sep='')
        ret<-matrix(ret, nrow=nrow(breaks))
        rownames(ret)<-rownames(breaks)
        colnames(ret)<-colnames(breaks)
        ret[nrow(ret),]<-breaks[nrow(breaks),]
        ret
    }
    print(xtable(format_breaks(breaks), caption='Bugs for which the FRM lies in the top-\\emph{x} results (\\source)', label='tab:search'), table.placement='t', sanitize.rownames.function=identity)
@
