X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;ds=sidebyside;f=saffron.R;fp=saffron.R;h=df12847e6f132d8bb81099eb5bacb33811919d31;hb=f6386a74a3399e05382412c0eb23d9b301f6e6d4;hp=0000000000000000000000000000000000000000;hpb=fa7b68ee3d2c9d467669021fd62e09a407e1244a;p=dak.git

diff --git a/saffron.R b/saffron.R
new file mode 100644
index 00000000..df12847e
--- /dev/null
+++ b/saffron.R
@@ -0,0 +1,6 @@
+x <- read.table("x.1",row.names=1,col.names=c("Packages", "Sizes"))
+y <- t(x)
+postscript(file="x4.png")
+barplot(y, beside=TRUE, col = c("red", "green"), main="Daily dinstall run size", legend = colnames(x), xlab="Date", ylab="Packages/Size (Mb)")
+axis(4)
+dev.off()