patch from David Skalinder

[iramuteq] / Rscripts / prototypical.R

diff --git a/Rscripts/prototypical.R b/Rscripts/prototypical.R
index b5f58fd..dddd7cb 100644 (file)
--- a/Rscripts/prototypical.R
+++ b/Rscripts/prototypical.R
@@ -61,5 +61,10 @@ 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)
+}
+
+intervalle.freq <- function(x, SX=NULL) {
+       errorn <- (x/SX) + (1.96 * sqrt(((x/SX) * (1-(x/SX))/SX)))
+       print(errorn)
 }