3 #* ANR project ANR-06-CORP-029
4 #* http://textometrie.ens-lsh.fr/
6 #* 2008 (C) Textometrie project
7 #* BSD New and Simplified BSD licenses
8 #* http://www.opensource.org/licenses/bsd-license.php
12 op <- par(mar = c(5, 4, 4, 5) + 0.1)
14 if( ! inherits(x, "table") ) {
18 plot( x, type='h', axes=F)
21 points( x, type='h', lwd=6) # , col=heat.colors(length(x))
25 plot(y, type="b", lwd=3, pch=7, axes=F, xlab='', ylab='', main='')
29 axis(1, at=1:length(x), labels=names(x))
31 title("Pareto graphic with cumulative frequency");