X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=Rscripts%2Fchdfunct.R;h=a5034b6649562dbfb94786dbdb8785b418d90b0c;hp=d93db99a112f89d30bb4b03c53dc3b741ef2afe9;hb=43c6fca06a3c58a789548c4b306d54e03a94b1c4;hpb=eac45acaeadf44f3005c983eafa097cde9d59a33

diff --git a/Rscripts/chdfunct.R b/Rscripts/chdfunct.R
index d93db99..a5034b6 100644
--- a/Rscripts/chdfunct.R
+++ b/Rscripts/chdfunct.R
@@ -49,7 +49,7 @@ PrintProfile<- function(dataclasse,profileactlist,profileetlist,antiproact,antip
 	cltot<-as.data.frame(as.character(cltot[,ncol(cltot)]))
 	tot<-nrow(cltot)
     classes<-as.data.frame(as.character(dataclasse[,ncol(dataclasse)]))
-    classes.s<-as.data.frame(summary(cltot[,1],maxsum=500))
+    classes.s<-as.data.frame(summary(as.factor(cltot[,1]),maxsum=500))
     profile<-rbind(profile,c('***','nb classes',clusternb,'***','',''))
     antipro<-rbind(antipro,c('***','nb classes',clusternb,'***','',''))
     for(i in 1:clusternb) {