X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=Rscripts%2Fchdtxt.R;h=13077f031a96707f3b490eee5bf9109f3a594f4b;hp=436d0ba917e1c056b642f41a1b5a519554e122d5;hb=68dd074f800832740f2c2cb0d6624af18f6dce1d;hpb=42a67a41b64a6e0cc3fd2a63a0749e9aa4b9374c

diff --git a/Rscripts/chdtxt.R b/Rscripts/chdtxt.R
index 436d0ba..13077f0 100644
--- a/Rscripts/chdtxt.R
+++ b/Rscripts/chdtxt.R
@@ -157,6 +157,7 @@ Rchdtxt<-function(uceout, chd1, chd2 = NULL, mincl=0, classif_mode=0, nbt = 9) {
 #        croise
 #    }
     croise <- croiseeff( matrix(ncol=tcl,nrow=tcl), classeuce1, classeuce2)
+    print(croise)
     if (classif_mode == 0) {ind <- (nbcl * 2)} else {ind <- nbcl}
 	if (mincl==0){
 		mincl<-round(nrow(classeuce1)/ind)
@@ -384,8 +385,8 @@ Rchdtxt<-function(uceout, chd1, chd2 = NULL, mincl=0, classif_mode=0, nbt = 9) {
                 chi <- NULL
                 uce <- NULL
                 for (j in 1:nrow(listcoordok[[i]])) {
-                    chi<-c(chi,croise[(listcoordok[[i]][j,1]-1),(listcoordok[[i]][j,2]-1)])
-                    uce<-c(uce,chicroiseori[(listcoordok[[i]][j,1]-1),(listcoordok[[i]][j,2]-1)])
+                    chi<-c(chi,chicroiseori[(listcoordok[[i]][j,1]-1),(listcoordok[[i]][j,2]-1)])
+                    uce<-c(uce,croise[(listcoordok[[i]][j,1]-1),(listcoordok[[i]][j,2]-1)])
                 }
             	if (maxchi < sum(chi)) {
             	    maxchi <- sum(chi)