statusFile <- read.table("~/work/datamov/CDC/nasa/r3-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-13 20:mm:ss UTC)", main="40 users transferring 100 2GB files from ALCF to PADS\nTransfer times: 13s min, 9h18m max, 4h32m median\n1.9 Gbps avg throughput")
plot(attempts ~ rtime, col=parent_taskid, xlab="request time (2010-10-13 20:mm:ss UTC)", ylab="number of transfer attempts", main="40 users transferring 100 2GB files from ALCF to PADS\n10,529 total attempts (median 2.0, mean 2.6)")
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\n10,529 total attempts (median 2.0, mean 2.6)")