scripts/debian/stats.R

   1 x <- read.table("x.1",row.names=1,col.names=c("Packages", "Sizes"))
   2 y <- t(x)
   3 postscript(file="x4.png")
   4 barplot(y, beside=TRUE, col = c("red", "green"), main="Daily dinstall run size", legend = colnames(x), xlab="Date", ylab="Packages/Size (Mb)")
   5 axis(4)
   6 dev.off()