1 files changed, 22 insertions, 0 deletions
diff --git a/clean b/clean
new file mode 100755
index 0000000..d88d8d2
--- /dev/null
+++ b/clean
@@ -0,0 +1,22 @@
+#!/bin/sh
+
+# Author: Johannes Ranke <jranke@uni-bremen.de>
+
+usage()
+{
+echo "Usage: ./clean [squeeze|wheezy|jessie]"
+}
+
+if [ $# -gt 1 ]; then usage; exit 1; fi
+if [ $# -eq 1 ]
+then
+  DIST=$1
+  if [ $DIST != "squeeze" ] && [ $DIST != "wheezy" ] && [ $DIST != "jessie" ]; then usage; exit 1; fi
+  cd $DIST
+fi
+
+for i in r-base tcl tk boot cluster codetools foreign kernsmooth lattice mgcv nlme r-cran-class r-cran-coda r-cran-mass r-cran-nnet r-cran-spatial rmatrix rodbc rpart survival littler rpy rpy2 rkward jags r-cran-rjags texinfo
+do
+    if ls $i*.deb 1> /dev/null 2>&1; then "Please take care of .deb files hanging around"; exit 1; fi
+    rm -rf $i*
+done