statusFile <- read.table("~/work/datamov/CDC/nasa/r2-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-12 14:mm:ss UTC)", main="40 users transferring 100 2GB files from ALCF to PADS\nTransfer times: 15s min, 5h38m max, 2h51m median\n3.2 Gbps avg throughput")
plot(attempts ~ rtime, col=parent_taskid, xlab="request time (2010-10-12 14:mm:ss UTC)", ylab="number of transfer attempts", main="40 users transferring 100 2GB files from ALCF to PADS\n7,034 total attempts (median 1.0, mean 1.7)")
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\n7,034 total attempts (median 1.0, mean 1.7)")