args<-commandArgs();
if(length(args)!=8) {
   cat("USAGE: R --slave --args raw_data out_fig fig_width < Guidance_Plot.R\n");
   q();
}
raw_data <- args[4];
out_fig <- args[5];
x_width <- as.integer(args[6]);
x_width_thick <- as.integer(args[7]);
Program <-args[8];
#Note that the args vector contains everything you wrote in the commandline.  In this case:
#args[1]:  /usr/lib64/R/bin/exec/R
#args[2]:  --slave
#args[3]:  --args
#args[4]:  raw_data
#args[5]:  out_fig
#args[5]:  fig_width

#fig_width=13.15*x_width;
#fig_width=14.5*x_width;
#fig_width=14.916*cols-26*gaps;
#par(mar=c(0, 0, 0.2, 0.2))
fig_width=14.5*x_width;
x_thick_num=x_width_thick/10;
print (raw_data);
print (out_fig);
print (fig_width);

guidance_col <- read.csv(file=raw_data,head=TRUE,sep=",");
png(out_fig, width=fig_width,height=500,res = 76);
plot ( guidance_col[,1], guidance_col[,2],type="b",col = "blue",ylab=paste(Program," Score"),xlab="Column",ylim=c(0,1),xlim=c(0,x_width_thick),xaxp=c(0,x_width_thick,x_thick_num),yaxp=c(0,1,10),xaxs="i",lty=3);

dev.off()