[med-svn] r2317 - in trunk/community: . talks talks/200808_debconf8

[tille at alioth.debian.org]

Author: tille
Date: 2008-07-25 19:46:11 +0000 (Fri, 25 Jul 2008)
New Revision: 2317

Added:
   trunk/community/talks/
   trunk/community/talks/200808_debconf8/
   trunk/community/talks/200808_debconf8/debian_med_stats
   trunk/community/talks/200808_debconf8/debian_med_stats.dat
Log:
R-Script to prepare statistics graph of meta package dependencies to be used in Debian-Med talk at Mar del Plata (DebConf8)


Added: trunk/community/talks/200808_debconf8/debian_med_stats
===================================================================
--- trunk/community/talks/200808_debconf8/debian_med_stats	                        (rev 0)
+++ trunk/community/talks/200808_debconf8/debian_med_stats	2008-07-25 19:46:11 UTC (rev 2317)
@@ -0,0 +1,17 @@
+#!/bin/sh
+# This script draws a barplot to visualise the dependant packages of
+# med-bio, med-imaging and med-practice over the years.  The data
+# are in debian_med_stats.dat
+
+R --no-save <<EOT
+library(plotrix)
+dmstats <- read.table(file='debian_med_stats.dat', sep = '\t', fill=TRUE, header=TRUE )
+png("dmstats.png", width = 800, height = 600)
+dmstats.mat <- as.matrix(dmstats)[,2:4]
+rownames(dmstats.mat) <- dmstats[['Year']]
+dmstats.mat <- t(dmstats.mat)
+
+# barplot(as.matrix(dmstats)[,2:4], names.arg=dmstats[['Year']], col=2:4)
+barplot(dmstats.mat,beside=TRUE,col=rainbow(3))
+
+EOT


Property changes on: trunk/community/talks/200808_debconf8/debian_med_stats
___________________________________________________________________
Name: svn:executable
   + *

Added: trunk/community/talks/200808_debconf8/debian_med_stats.dat
===================================================================
--- trunk/community/talks/200808_debconf8/debian_med_stats.dat	                        (rev 0)
+++ trunk/community/talks/200808_debconf8/debian_med_stats.dat	2008-07-25 19:46:11 UTC (rev 2317)
@@ -0,0 +1,8 @@
+Year	Microbiology	Imaging	Practice
+2002	4	2	0
+2003	12	3	0
+2004	20	6	0
+2005	35	8	1
+2006	45	12	1
+2007	53	17	1
+2008	61	19	1