R commands:

statusFile <- read.table("status11-nersc.csv", sep=",",header=TRUE)
attach(statusFile)
sortedFile <- statusFile[order(xfer_time) , ]
attach(sortedFile)

plot(attempts,log="y",col=rainbow(11)[6],ylab="# of Transfer Attempts",xlab="Individual Files",main="CEDPS Data Challenge #3: Attempts (ordered by Transfer Time)\n1 user transferring 49,000 200M files from ALCF to NERSC\n19 May 2010, Run #11")

plot(xfer_time/60/60,ylab="Transfer Time (Hours)",xlab="Individual Files",col=rainbow(11)[6],main="CEDPS Data Challenge #3: Time (ordered by Transfer Time)\n1 user transferring 49,000 200M files from ALCF to NERSC\n19 May 2010, Run #11",type="h")