From: Pierre Ratinaud <ratinaud@univ-tlse2.fr>
Date: Wed, 19 Jun 2024 10:22:30 +0000 (+0200)
Subject: correction
X-Git-Url: http://iramuteq.org/git?a=commitdiff_plain;h=8cd0de80227e9af01da96e14cdebc5800c7e2fca;p=iramuteq

correction
---

diff --git a/Rscripts/prototypical.R b/Rscripts/prototypical.R
index 53a3d30..c74c1c8 100644
--- a/Rscripts/prototypical.R
+++ b/Rscripts/prototypical.R
@@ -50,7 +50,7 @@ prototypical <- function(x, mfreq = NULL, mrank = NULL, cexrange=c(0.8, 3), cexa
         labcol <- colors[ord.ori]
     }
 	mat.col <- cbind(r.names, labcol)
-	write.table(mat.col,file=mat.col.path)
+	#write.table(mat.col,file=mat.col.path)
     ti <- c("Zone du noyau", "Première périphérie", "Seconde périphérie", "Elements contrastés")
 	if (type == 'classical') {
 	    par(oma=c(1,3,3,1))