deetsFile <- read.table("alcf1.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))
palette(c("blue","magenta"))
plot(ctime,col=parent_taskid,ylab="completion time (UTC)",yaxt="n",xaxt="n",main="2TB Transfer (2x500 2GB Files)\nOLCF taskid: 1039a5c4-23d8-11e0-9961-12313916526c\nNERSC taskid: 139ce712-23d8-11e0-9d4d-12313916526c")
legend("top",c("ALCF to NERSC","ALCF to OLCF"),pch=19,col=c("magenta","blue"),bty="n")
axis.POSIXct(2,at=seq(min(ctime),max(ctime),length.out=4),format="%F %R")
abline(v=647,col="darkgray", lty=3)
text(400, 1295447500,"500 NERSC, 147 OLCF files\n4.2Gbps",col="darkgray")
text(895, 1295451287,"353 OLCF files\n1 Gbps",col="darkgray")