[Corpusreader-svn] SF.net SVN: corpusreader:[212] trunk/corpusreader/src/main/R/specificites.R

[<syl...@us...>]

Revision: 212
          http://corpusreader.svn.sourceforge.net/corpusreader/?rev=212&view=rev
Author:   sylvainloiseau
Date:     2009-01-01 19:27:52 +0000 (Thu, 01 Jan 2009)

Log Message:
-----------
Version used for 2008 TIM cours

Modified Paths:
--------------
    trunk/corpusreader/src/main/R/specificites.R

Modified: trunk/corpusreader/src/main/R/specificites.R
===================================================================
--- trunk/corpusreader/src/main/R/specificites.R	2008-12-21 11:32:24 UTC (rev 211)
+++ trunk/corpusreader/src/main/R/specificites.R	2009-01-01 19:27:52 UTC (rev 212)
@@ -22,11 +22,11 @@
 
 	## Un peu de nettoyage dans le sous corpus : on supprime
         ## d'\xE9ventuelles forme ou partie sans aucune valeur
-        sousCorpus <- sousCorpus[,colSums(sousCorpus) > 0];
-        sousCorpus <- sousCorpus[rowSums(sousCorpus) > 0,];
+        souscorpus <- souscorpus[,colSums(souscorpus) > 0];
+        souscorpus <- souscorpus[rowSums(souscorpus) > 0,];
 
 	## Les fr\xE9quences dans le sous-corpus
-	sousFrequences <- colSums(sousCorpus); 
+	sousFrequences <- colSums(souscorpus); 
 
         specificitesFrequencyLists(frequencesCorpus, sousFrequences);
 }
@@ -99,7 +99,7 @@
             c(specificiteIndex, sousFrequences, frequencesTotales), 
             nrow = nbrFormes, 
             ncol=3, 
-            dimnames = list(names(sousFrequences), c("Indice de sp\xE9cificit\xE9", "Sous fr\xE9quence", "Fr\xE9quence absolue"))
+            dimnames = list(names(sousFrequences), c("Indice de sp\xE9cificit\xE9", "Sous fr\xE9quence", "Fr\xE9quence totale"))
             );
 	
         sorted <- m[order(m[,1], decreasing=TRUE),];


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.