X-Git-Url: http://iramuteq.org/git?a=blobdiff_plain;f=Rscripts%2Fprototypical.R;h=c74c1c8dc1d7f226ce39cdaa621da7016315f416;hb=refs%2Fheads%2F3.0;hp=53a3d30bd0d839c6e60bfc5f8cc9efccc4db5fc9;hpb=6c7a10958dd717a7dfb5d497dad81e8903d45979;p=iramuteq

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