X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=Rscripts%2Fprototypical.R;h=8d3c634980d78ab84f2346e2d3dcb4ff120778e3;hp=b5f58fd5a3345dcb93f6cedebee8f4d4835997a4;hb=69b6d701d4298a125c51cd0ac8e884359f93a6ad;hpb=2ffa9388c45dce689bb45c1cf6c7ad81d2636409

diff --git a/Rscripts/prototypical.R b/Rscripts/prototypical.R
index b5f58fd..8d3c634 100644
--- a/Rscripts/prototypical.R
+++ b/Rscripts/prototypical.R
@@ -61,5 +61,5 @@ prototypical <- function(x, mfreq = NULL, mrank = NULL, cexrange=c(0.8, 3), cexa
         }
     }
     mtext(paste('<', mfreq, '  Fréquences  ', '>=', mfreq, sep = ' '), side=2, line=1, cex=1, col="red", outer=TRUE)
-    mtext(paste('<', mrank,  '  Rangs  ', '>=', mrank, sep = ' '), side=3, line=1, cex=1, col="red", outer=TRUE)
+    mtext(paste('<=', mrank,  '  Rangs  ', '>', mrank, sep = ' '), side=3, line=1, cex=1, col="red", outer=TRUE)
 }