R commands:

statusFile <- read.table("status1.csv", sep=",",header=TRUE)
attach(statusFile)

sortedTime <- statusFile[order(xfer_time) , ]
attach(sortedTime)

plot(attempts,col=group,ylab="# of Transfer Attempts",xlab="Individual Files",main="CEDPS Data Challenge #3: Attempts (ordered by Transfer Time)\n1 user transferring 10,000 200M files from ALCF to PADS\n16 April 2010")

plot(xfer_time/60/60,ylab="Transfer Time (Hours)",xlab="Individual Files",col=group,main="CEDPS Data Challenge #3: Time (ordered by Transfer Time)\n1 user transferring 10,000 200M files from ALCF to PADS\n16 April 2010",type="h")