#!/usr/bin/env Rscript

cpu0=read.table("sdd_cpu0", header=T)
cpu1=read.table("sdd_cpu1", header=T)
cpu2=read.table("sdd_cpu2", header=T)
cpu3=read.table("sdd_cpu3", header=T)
png(filename="sdd_dd.png", width=800,height=600)
#pdf(file="test.pdf")
plot(
	cpu0$Time, cpu0$iowait, type="l", col="1",
        xlab="時間(秒)",
        ylab="iowait(%)",
	ylim=c(-5,105),
        main="sar -P ALL 1 while dd urandom > sdd"
)
points(
	cpu1$Time, cpu1$iowait, type="l", col="2"
)
points(
	cpu2$Time, cpu2$iowait, type="l", col="3"
)
points(
	cpu3$Time, cpu3$iowait, type="l", col="4"
)
legend("topright",c("CPU0", "CPU1", "CPU2", "CPU3"),
		pch = 15,
		col = c(1,2,3,4)
	)
warnings()
dev.off()