+ txt += """
+ if (indice == 'hypergeo') {
+ banseuil <- 2
+ } else if (indice == 'chi2') {
+ banseuil <- 3
+ }
+ banal <- apply(abs(outf[[1]]), 1, max)
+ banal <- which(banal < banseuil)
+ banalfreq <- rowSums(dmf[banal,])
+ banalspec <- specf<-outf[[1]][banal,]
+ banal <- cbind(banalfreq, banalspec)
+ write.csv2(banal,file="%s")
+ """ % self.pathout['banalites.csv']