remove print in gowerD

statistikat · Jul 15, 2024 · 54d3dc1 · 54d3dc1
1 parent c5ada60
commit 54d3dc1
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/R/gowerD.R b/R/gowerD.R
@@ -99,7 +99,6 @@ gowerD <- function(data.x, data.y = data.x,
                         2,min0,na.rm=TRUE)
       rmax <- apply(rbind(data.x[,numerical,drop=FALSE],
                         data.y[,numerical,drop=FALSE]),2,max1,na.rm=TRUE)
-      print(c(rmin,rmax))
     }else if(methodStand == "iqr"){
       rmin <- apply(rbind(data.x[,numerical,drop=FALSE],data.y[,numerical,drop=FALSE]),2,quantile,na.rm=TRUE,
                     probs=.25)