#!/usr/bin/env Rscript
args = commandArgs(trailingOnly=TRUE)


mydata=read.table(args, header=T)
#	から「上のド」まで"
png(filename=paste(args,".png",sep=""), width=800,height=600)
plot    (
	mydata$Times,
        mydata$Number,
        type="l", 
        xlab="Times",
        ylab="mA",
	ylim=c(0,260),
	lwd=3,
        main="電流計をかますと起動できないラズパイB"
        )
dev.off()