[R] convert decimals to fractions - sorted

[JeeBee]

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.