From 8cd0de80227e9af01da96e14cdebc5800c7e2fca Mon Sep 17 00:00:00 2001
From: Pierre Ratinaud <ratinaud@univ-tlse2.fr>
Date: Wed, 19 Jun 2024 12:22:30 +0200
Subject: [PATCH] correction

---
 Rscripts/prototypical.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))
-- 
2.7.4