...

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

diff --git a/Rlib/textometrieR/R/repartition.R b/Rlib/textometrieR/R/repartition.R
index 5a44611..c819fbb 100644 (file)
--- a/Rlib/textometrieR/R/repartition.R
+++ b/Rlib/textometrieR/R/repartition.R
@@ -1,3 +1,20 @@
+#* 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)
 
@@ -23,13 +40,13 @@
                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
        }