deetsFile <- read.table("nersc3.csv", sep=",", header=TRUE)
attach(deetsFile)
summary(task_type)
summary(status)
summary(faults)
sortedTime <- deetsFile[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))
plot(ctime,col="magenta",ylab="completion time (UTC)",xaxt="n",yaxt="n",main="25000 2GB Files from ALCF to NERSC\nTaskid: daa2de5e-33f8-11e0-b671-12313916526c")
axis.POSIXct(2,at=seq(min(ctime),max(ctime),length.out=4),format="%F %R")
abline(v=12500,col="darkgray", lty=3)
text(16200, 1297282000,"12500th completion",col="darkgray")