cltot<-as.data.frame(as.character(cltot[,ncol(cltot)]))
tot<-nrow(cltot)
classes<-as.data.frame(as.character(dataclasse[,ncol(dataclasse)]))
cltot<-as.data.frame(as.character(cltot[,ncol(cltot)]))
tot<-nrow(cltot)
classes<-as.data.frame(as.character(dataclasse[,ncol(dataclasse)]))
profile<-rbind(profile,c('***','nb classes',clusternb,'***','',''))
antipro<-rbind(antipro,c('***','nb classes',clusternb,'***','',''))
for(i in 1:clusternb) {
profile<-rbind(profile,c('***','nb classes',clusternb,'***','',''))
antipro<-rbind(antipro,c('***','nb classes',clusternb,'***','',''))
for(i in 1:clusternb) {