ptc <- tcp/sum(tcp)
dpt <- t(dpt)
dd <- dpt
- """ % self.parametres['var']
+ """ % self.parametres['var'].replace(u'*', u"\\\\*")
txt += """
classes <- n1[,ncol(n1)]
tcl <- table(classes)
ptc <- tcp/sum(tcp)
dpt <- t(dpt)
dd <- dpt
- """ % self.parametres['var']
+ """ % self.parametres['var'].replace(u'*', u"\\\\*")
txt += """
classes <- n1[,ncol(n1)]
tcl <- table(classes)