#!/usr/bin/env Rscript
args = commandArgs(trailingOnly=TRUE);
if (length(args) == 0) {
    stop("bar.R <numloop> <day>")
}
pdf(paste(args[1],"_",args[2],".pdf",sep=""));
data=scan(file("stdin"));
p = barplot(data,main=paste("Comptage horaire des vélos sur la boucle",
                            args[1],"le",args[2]),xlab="Heure",xaxt="n");
axis(side=1,at=p,labels=0:23,cex.axis=0.5);