read.table("/home/pauljohn/ps/ps110/Grades/T307_Scores.txt",sep=",")

mydat <- read.table("/home/pauljohn/ps/ps110/Grades/T307_Scores.txt",sep=",")

 names(mydat) <- c("last", "first", "ID", "trash", "score" )


hist(mydat$score, breaks=25, xlab="Test 3 2008", ylab="How many students",main="PJ really teaches great", xlim=c(0,51))

mything <- density(mydat$score)
lines(mything, col="red")

median(mydat$score)


 order( mydat$score)
newdat <- mydat[ order(mydat$score), ]