+#* 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)
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
- }
+ if(length(x) > 0)
+ {
+ d = density(x, bw=bande)
+ m = max(d[["y"]])
+ if(maxY < m)
+ maxY <- m
+ }
}
maxY=2*maxY
}