eventsFile <- read.table("olcf2-events.csv", sep=",", header=TRUE)
attach(eventsFile)
summary(code)
summary(description)
plot(code,col=rainbow(4),ylab="count",main="500 2GB Files from ALCF to OLCF: Event Count\nTaskid: a8c73b8a-2af4-11e0-927d-12313916526c")
etime <- as.POSIXct(time,"YYYY-mm-dd HH:MM:SS")
plot(as.numeric(etime) ~ code,yaxt="n",ylab="event time (UTC)",xlab="event type",col=rainbow(4),main="500 2GB Files from ALCF to OLCF: Event Times\nTaskid: a8c73b8a-2af4-11e0-927d-12313916526c")
axis.POSIXct(2,at=seq(min(etime),max(etime),length.out=4),format="%F %R")