png('output.png',width = 1024, height = 768, units = "px",)
res <- read.table("output.dat",header=TRUE)
plot(res)