#!/usr/bin/env Rscript

cpu0=read.table("cpu_iowait0", header=T)
cpu1=read.table("cpu_iowait1", header=T)
png(filename="dd_iowait.png", width=1024,height=768)
#pdf(file="test.pdf")
plot(
	cpu0$Time, cpu0$iowait, type="l", col="2",
        xlab="時間(秒)",
        ylab="%iowait",
	ylim=c(-5,105),
        main="dd if=diskimage of=usb_memory"
)
points(
	cpu1$Time, cpu1$iowait, type="l", col="3"
)
legend("topright",c("CPU0", "CPU1"),
		pch = 15,
		col = c(2,3)
	)
warnings()
dev.off()