if it happens to know the denominator, then a simple approach could be: frac.fun <- function(x, den){ dec <- seq(0, den) / den nams <- paste(seq(0, den), den, sep = "/") sapply(x, function(y) nams[which.min(abs(y - dec))]) } ####################### frac.fun(c(0, 1, 0.8266667, .066666, 0.2666666), 75)
I hope it helps. Best, Dimitris ---- Dimitris Rizopoulos Ph.D. Student Biostatistical Centre School of Public Health Catholic University of Leuven Address: Kapucijnenvoer 35, Leuven, Belgium Tel: +32/(0)16/336899 Fax: +32/(0)16/337015 Web: http://www.med.kuleuven.be/biostat/ http://www.student.kuleuven.be/~m0390867/dimitris.htm ----- Original Message ----- From: "Muhammad Subianto" <[EMAIL PROTECTED]> To: <R-help@stat.math.ethz.ch> Sent: Friday, January 27, 2006 11:39 AM Subject: [R] How to convert decimals to fractions > Dear all, > Are there any functions to convert decimals to fractions in R? > I have the result: > > summary(as.factor(complete.ID)) > 0 0.0133333333333333 0.04 > 2256 488 230 > 0.0666666666666667 0.0933333333333333 0.106666666666667 > 2342 310 726 > 0.133333333333333 0.146666666666667 0.16 > 179 750 163 > 0.186666666666667 0.2 0.226666666666667 > 194 180 57 > 0.253333333333333 0.266666666666667 0.293333333333333 > 1 10 40 > 0.32 0.333333333333333 0.346666666666667 > 45 61 117 > 0.373333333333333 > 62 > > > > How to convert something like this: > > 0 1/75 3/75 > 2256 488 230 > 5/75 7/75 8/75 > 2342 310 726 > 10/75 11/75 12/75 > 179 750 163 > 14/75 15/75 17/75 > 194 180 57 > 19/75 20/75 22/75 > 1 10 40 > 24/75 25/75 26/75 > 45 61 117 > 28/75 > 62 > > Any suggestions would be appreciated. Thanks you. > Best, Muhammad Subianto > PS. > I found this website: http://www.mindspring.com/~alanh/fracs.html > > ______________________________________________ > R-help@stat.math.ethz.ch mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide! > http://www.R-project.org/posting-guide.html > Disclaimer: http://www.kuleuven.be/cwis/email_disclaimer.htm ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html