[dak/master] ftpstats.r
add the file to git so others can play with it
Signed-off-by: Joerg Jaspert <joerg@debian.org>
---
scripts/debian/ftpstats.R | 20 ++++++++++++++++++++
1 files changed, 20 insertions(+), 0 deletions(-)
create mode 100644 scripts/debian/ftpstats.R
diff --git a/scripts/debian/ftpstats.R b/scripts/debian/ftpstats.R
new file mode 100644
index 0000000..62846c7
--- /dev/null
+++ b/scripts/debian/ftpstats.R
@@ -0,0 +1,20 @@
+arch <- c("source", "all", "amd64", "i386", "alpha", "arm", "armel", "hppa", "hurd-i386", "ia64",
+ "mips", "mipsel", "powerpc", "s390", "sparc")
+palette(c("midnightblue", "gold", "turquoise", "cyan", "black", "red", "OrangeRed", "green3", "blue",
+ "magenta", "tomato4",
+ "violetred2","thistle4", "steelblue2", "springgreen4",
+ "salmon","gray"))
+cname <- c("date",arch)
+plotsize <- function(file,title,p,height=11.8,width=16.9) {
+ bitmap(file=file,type="png16m",width=16.9,height=11.8)
+ barplot(t(p),col = 1:15, main=title,
+ xlab="date", ylab="size (MiB)")
+ legend(par("usr")[1]+xinch(5),par("usr")[4]-yinch(0.1),legend=colnames(t),
+ ncol=3,fill=1:15,xjust=1,yjust=1)
+}
+t <- (read.table("/org/ftp.debian.org/misc/ftpstats.data",sep=",",header=0,row.names=1,col.names=cname))/1024/1024
+v <- t[(length(t$all)-90):(length(t$all)),1:15]
+
+#plotsize("/org/ftp.debian.org/web/size.png","Daily dinstall run size by arch",t)
+plotsize("/org/ftp.debian.org/web/size-quarter.png","Daily dinstall run size by arch (past quarter)",v)
+
--
1.5.6.5
Reply to: