"""
txt += """
seuil <- %s
+ if (method!='cooc') {
+ seuil <- seuil/100
+ }
""" % seuil
txt += """
self.packages(['textometry'])
txt = """
tgen <- read.csv2("%s", row.names = 1, sep = '\\t')
- """ % self.parametres['tgeneff']
+ """ % ffr(self.parametres['tgeneff'])
txt += """
tot <- tgen[nrow(tgen), ]
result <- NULL