deetsFile <- read.table("alcf4.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")) par(cex.axis=0.8) plot(ctime,col=parent_taskid,ylab="completion time (UTC)",xaxt="n",yaxt="n",main="586TB Transfer (2x150000 2GB Files)\nOLCF taskid: 0b58f49e-39de-11e0-a147-1231390013a2\nNERSC taskid: 83588e8c-39de-11e0-ab94-1231390013a2") 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= 226698,col="darkgray", lty=3) text(160000, 1298099249,"150000 NERSC,\n76698 OLCF files\n5.7 Gbps",col="darkgray") text(270000, 1298099249,"73302 OLCF files\n1.2 Gbps",col="darkgray")