X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=Rlib%2FtextometrieR%2FR%2Frepartition.R;fp=Rlib%2FtextometrieR%2FR%2Frepartition.R;h=c819fbb58beb8cf8560c33a25d38708fc0401120;hp=5a44611b6ccdcb0307fba092512178f9bc11454a;hb=2bd16d105beb32d6706f03e4ea717e4c7af43d03;hpb=ff602f724b8fc80f4fa067dbbc830343c0b4bed4

diff --git a/Rlib/textometrieR/R/repartition.R b/Rlib/textometrieR/R/repartition.R
index 5a44611..c819fbb 100644
--- 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
 	}