...

[iramuteq] / Rscripts / prototypical.R

diff --git a/Rscripts/prototypical.R b/Rscripts/prototypical.R
index b5f58fd..8d3c634 100644 (file)
--- 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)
 }