compatibility R 4.0
authorpierre <ratinaud@univ-tlse2.fr>
Mon, 4 May 2020 15:39:36 +0000 (17:39 +0200)
committerpierre <ratinaud@univ-tlse2.fr>
Mon, 4 May 2020 15:39:36 +0000 (17:39 +0200)
Rscripts/chdfunct.R

index d93db99..a5034b6 100644 (file)
@@ -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)]))
        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) {
     profile<-rbind(profile,c('***','nb classes',clusternb,'***','',''))
     antipro<-rbind(antipro,c('***','nb classes',clusternb,'***','',''))
     for(i in 1:clusternb) {