From 43c6fca06a3c58a789548c4b306d54e03a94b1c4 Mon Sep 17 00:00:00 2001 From: pierre Date: Mon, 4 May 2020 17:39:36 +0200 Subject: [PATCH] compatibility R 4.0 --- Rscripts/chdfunct.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) { -- 2.7.4