eventsFile <- read.table("~/work/datamov/CDC/nasa/r2-events.csv", sep=",", header=TRUE)
attach(eventsFile)
summary(code)
summary(description)
plot(code,col=rainbow(5),ylab="count",main="40 users transferring 100 2GB files from ALCF to PADS\n31,835 events recorded")
legend("topright",c("Abnormal end of transfer","Performance monitoring event","The operation was started or restarted","The operation succeeded","The transfer took too long"),fill=rainbow(5))
etime <- as.POSIXct(time,"YYYY-mm-dd HH:MM:SS")
plot(as.numeric(etime) ~ code,yaxt="n",ylab="time",xlab="event type",col=rainbow(5),main="40 users transferring 100 2GB files from ALCF to PADS\nEvent times")
axis(2,at=min(etime),label="t=0")