Millnert · February 11, 2016 13:03
diff --git a/preproc.sh b/preproc.sh
 #!/bin/bash

 infile=$1
 echo "date,members" > out.data
 sed -e 's/^nmembers[ \t]*\([0-9\-]*\)[ \t]*\(.*\)$/\1,\2/g' $infile >> out.data
diff --git a/run.sh b/run.sh
 #!/bin/sh
 # requires r-base installed (providing RScript binary)

 bash preproc.sh sampledata.txt
 Rscript script.R
diff --git a/sampledata.txt b/sampledata.txt
 nmembers	    2014-04-11 	  34
 nmembers	  2015-04-11 	  54
 nmembers	     2015-05-11 	  66
 nmembers	  2015-10-11 	  76
 nmembers	     2016-01-11 	  84
 nmembers   	2016-02-10 100
diff --git a/script.R b/script.R
 mydata = read.csv('out.data')
 mydata$date <- strptime(mydata$date, "%Y-%m-%d")
 png("dfri_members.png")
 plot(mydata$date, mydata$members, main="DFRI Members", xlab="Time", ylab="Members")
 lines(mydata$date, mydata$members, type='o')
 dev.off()
	#!/bin/bash

	infile=$1
	echo "date,members" > out.data
	sed -e 's/^nmembers[ \t]\([0-9\-]\)[ \t]\(.\)$/\1,\2/g' $infile >> out.data
	#!/bin/sh
	# requires r-base installed (providing RScript binary)

	bash preproc.sh sampledata.txt
	Rscript script.R
	mydata = read.csv('out.data')
	mydata$date <- strptime(mydata$date, "%Y-%m-%d")
	png("dfri_members.png")
	plot(mydata$date, mydata$members, main="DFRI Members", xlab="Time", ylab="Members")
	lines(mydata$date, mydata$members, type='o')
	dev.off()