Hi R'ers: I need a little help. Thanks in advance. Bruce dd <- read.csv("C:/R_Data/firstRdata.csv", sep=",", header=TRUE) dd <- data.frame(yhat,Response) attach(dd) dd <- dd[order(-yhat),] dd # delete yhat and transpose Response into a vector Attached is dataset. -- Bruce