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