rm

[iramuteq] / Rlib / textometrieR / R / repartition.R

diff --git a/Rlib/textometrieR/R/repartition.R b/Rlib/textometrieR/R/repartition.R
deleted file mode 100644 (file)
index c819fbb..0000000
--- a/Rlib/textometrieR/R/repartition.R
+++ /dev/null
@@ -1,128 +0,0 @@
-#* Copyright © - 2008-2013 ANR Textométrie - http://textometrie.ens-lyon.fr
-#*
-#* This file is part of the TXM platform.
-#*
-#* The TXM platform is free software: you can redistribute it and/or modif y
-#* it under the terms of the GNU General Public License as published by
-#* the Free Software Foundation, either version 3 of the License, or
-#* (at your option) any later version.
-#*
-#* The TXM platform is distributed in the hope that it will be useful,
-#* but WITHOUT ANY WARRANTY; without even the implied warranty of
-#* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-#* General Public License for more details.
-#*
-#* You should have received a copy of the GNU General Public License
-#* along with the TXM platform.  If not, see <http://www.gnu.org/licenses/>.
-
-`printrepartition` <-function(positions, names, colors, styles, widths, corpusname, Xmin, T, doCumulative, structurepositions, strutnames, graphtitle, bande) {
-       options(scipen=1000)
-
-       linestyle = 1
-       linewidth = 1
-
-               if (length(positions) > length(colors)) stop("colors list size too small");
-               if (length(positions) > length(names)) stop("names list size too small");
-               if (length(positions) > length(styles)) stop("styles list size too small");
-               if (length(positions) > length(widths)) stop("widths list size too small");
-       
-       # if (length(structurepositions) > length(strutnames)) stop("structure names list size too small");
-
-       doCumu <- (doCumulative == "true")
-
-       maxX = T
-       maxY = 0
-       draw = 0
-
-       # set maxX and maxY the ranges
-       if(!doCumu)
-       {
-               for(i in 1:length(names))
-               {
-                       x = positions[[i]]
-                       if(length(x) > 0)
-                       {
-                               d = density(x, bw=bande)
-                               m = max(d[["y"]])
-                               if(maxY < m)
-                                       maxY <- m
-                       }
-               }
-               maxY=2*maxY
-       }
-       else
-       {
-               for(i in 1:length(names))
-               {
-                       my <- length(positions[[i]])
-                       if(maxY < my)
-                               maxY <- my
-               }
-       }
-
-       # draw curves
-       for(i in 1:length(names))
-       {
-               #line styles and width update
-               linestyle = linestyle + 1
-               if(linestyle >= 6)
-               {
-                       linestyle = 1
-                       linewidth = linewidth+ 1
-               }
-               x = positions[[i]]
-                             if(length(x) > 0)
-                             {
-                                 y = 1:length(x)
-
-                                 y <- c( c(0), y , c(y[[length(x)]]) )
-                                 x <- c( c(x[[1]]), x , c(maxX) )
-
-                                 if(draw == 0)# first draw
-                                 {
-                                         if(doCumu)
-                                         {
-
-plot(x, y, type="s", xlab=paste("T = ", maxX), main = graphtitle, ylab="Occurrences", ylim=c(0, maxY), xlim=c(Xmin, maxX), pch=15, col=colors[i], lty=styles[i], lwd=widths[i], xaxs="i", yaxs="i")
-                                         }
-                                         else
-                                         {
-plot(density(x, bw=bande), type="l", xlab=paste("T = ", maxX), graphtitle, ylab="Density", ylim=c(0, maxY), xlim=c(Xmin, maxX), pch=15, col=colors[i], lty=styles[i], lwd=widths[i], xaxs="i", yaxs="i")
-                                         }
-                                 }
-                                 else #next draws
-                                 {
-                                         if(doCumu)
-                                         {
-points(x, y, type="s", pch=15, col=colors[i], lty=styles[i], lwd=widths[i])
-                                         }
-                                         else
-                                         {
-points(density(x, bw=bande), type="l", pch=15, col=colors[i], lty=styles[i], lwd=widths[i])
-                                         }
-                                 }
-                                 rm(y)
-                                 draw <- draw + 1
-                             }
-       }
-
-       # draw legend
-       for(i in 1:length(names))
-               names[i] = paste(names[i], length(positions[[i]]))
-
-       if(draw > 0)
-               legend("topleft", names, inset = .02, col = colors, lty=styles, lwd=widths)
-
-       # draw hist of struct
-       y = c()
-       if(length(structurepositions) > 0)
-       {
-               for(i in 1:length(structurepositions))
-               {
-                       y[i] <- maxY
-                       text(structurepositions[[i]], maxY*0.70, strutnames[[i]], cex = .8, srt=-90, adj = c(0,0))
-               }
-               points(structurepositions, y, type="h", ylim=c(0, maxY), xlim=c(Xmin, maxX))
-       }
-}
-