statusFile <- read.table("~/work/datamov/CDC/nasa/r1-deets.csv", sep=",", header=TRUE)
attach(statusFile)
summary(task_type)
summary(status)
summary(attempts)
sum(attempts)
sortedTime <- statusFile[order(completion_time,parent_taskid) , ]
attach(sortedTime)
rtime <- as.POSIXct(request_time,"YYYY-mm-dd HH:MM:SS")
ctime <- as.POSIXct(completion_time,"YYYY-mm-dd HH:MM:SS")
ttime <- ctime-rtime
summary(as.numeric(ttime))
palette(rainbow(40))
plot(rtime ~ ctime, col=parent_taskid, xlab="completion time (hh:mm)", ylab="request time (2010-10-06 13:mm:ss UTC)", main="40 users transferring 100 2GB files from ALCF to PADS\nTransfer times: 11s min, 12h44m max, 6h27s median\n1.4 Gbps avg throughput")
plot(attempts ~ rtime, col=parent_taskid, xlab="request time (2010-10-06 13:mm:ss UTC)", ylab="number of transfer attempts", main="40 users transferring 100 2GB files from ALCF to PADS\n11,154 total attempts (median 2.0, mean 2.8)")
plot(attempts ~ ctime, col=parent_taskid, xlab="completion time (hh:mm)", ylab="number of transfer attempts", main="40 users transferring 100 2GB files from ALCF to PADS\n11,154 total attempts (median 2.0, mean 2.8)")