X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=Rscripts%2Fprototypical.R;h=dddd7cb0a0a67e48ee5d18c92b1bb0f40490c4e1;hp=8d3c634980d78ab84f2346e2d3dcb4ff120778e3;hb=54fef96ad151ba25920f3e589b39a83c3f62ae2c;hpb=1b8a959d135b3aad8bb998770ced348ae01c158f;ds=sidebyside

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