Hi Muhammad, How about this?
at <- read.table(textConnection(a)) at2 <- cbind(at, jeebee=as.character(as.fractions(as.numeric(at[,2])))) sort.order <- order(at2$V2) at2[sort.order,] at2[sort.order,c(1,3)] JeeBee. ______________________________________________ [email protected] mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
