Re: [R] convert decimals to fractions - sorted

2006-07-28 Thread JeeBee 

Ah I see, I did not read your story well enough.
You want to sort after applying table()
Well, the idea I suggested was to keep the real numbers in,
because the fractions are sorted as characters strings (alphabetically),
which is not what you want. So, now I suggest the following:

# First apply table()
tmp1 - as.data.frame(table(df))

# Note that table() turned your numeric data into factors,
# this might not be a handy approach, anyways, it is possible I guess.
# You have to convert back using as.numeric(as.character(tmp1$V2))
# or, more efficiently, as.numeric(levels(tmp1$V2))[tmp1$V2]

# Add the column with the fractions
tmp2 - cbind(tmp1, 
fracs=as.character(as.fractions(as.numeric(as.character(tmp1$V2)

# Finally hide that sort colum if you want

( tmp2[-2] )

# Everybody happy?

JeeBee

__
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
and provide commented, minimal, self-contained, reproducible code.

Re: [R] convert decimals to fractions - sorted

2006-07-28 Thread Muhammad Subianto 
Dear JeeBee and all,
It is nice. Thanks you very much.
I must learn much more about ?as.fractions, ?as.numeric, ?as.character
and ?table functions.

Best wishes, Muhammad Subianto


On 7/28/06, JeeBee [EMAIL PROTECTED] wrote:

 Ah I see, I did not read your story well enough.
 You want to sort after applying table()
 Well, the idea I suggested was to keep the real numbers in,
 because the fractions are sorted as characters strings (alphabetically),
 which is not what you want. So, now I suggest the following:

 # First apply table()
 tmp1 - as.data.frame(table(df))

 # Note that table() turned your numeric data into factors,
 # this might not be a handy approach, anyways, it is possible I guess.
 # You have to convert back using as.numeric(as.character(tmp1$V2))
 # or, more efficiently, as.numeric(levels(tmp1$V2))[tmp1$V2]

 # Add the column with the fractions
 tmp2 - cbind(tmp1,
 fracs=as.character(as.fractions(as.numeric(as.character(tmp1$V2)

 # Finally hide that sort colum if you want

 ( tmp2[-2] )

 # Everybody happy?

 JeeBee

 __
 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
 and provide commented, minimal, self-contained, reproducible code.


__
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
and provide commented, minimal, self-contained, reproducible code.

Re: [R] convert decimals to fractions - sorted

2006-07-26 Thread 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.

__
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
and provide commented, minimal, self-contained, reproducible code.

Re: [R] convert decimals to fractions - sorted

2006-07-26 Thread Muhammad Subianto 
Dear all,
Thanks for your help.
I played with you suggest and still didn't sort (summary) which I need.

 t(table(at2[sort.order,c(1,3)]))
   V1
jeebee  -1 1
  0  0 4
  11/21  0 1
  1/21 0
  1/21   1 1
  13/42  1 1
  17/42  0 2
  2/21   0 3
  3/14   1 2
  5/42   0 1
  8/21   0 1


I need the result summary (order) like,

  -1 1
  0/42   0 4
  2/42   1 1
  4/42   0 3
  5/42   0 1
  9/42   1 2
  13/42  1 1
  16/42  0 1
  17/42  0 2
  21/42  1 0
  22/42  0 1

Thanks very much for any suggestions.
Groeten  Regards, Muhammad Subianto


On 7/26/06, JeeBee [EMAIL PROTECTED] wrote:

 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.

 __
 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
 and provide commented, minimal, self-contained, reproducible code.


On 7/25/06, Muhammad Subianto [EMAIL PROTECTED] wrote:
 Dear all,
 Based on my question a few months ago
 https://stat.ethz.ch/pipermail/r-help/2006-January/086952.html
 and solved with
 https://stat.ethz.ch/pipermail/r-help/2006-January/086955.html
 https://stat.ethz.ch/pipermail/r-help/2006-January/086956.html
 and from
 https://stat.ethz.ch/pipermail/r-help/2006-January/086958.html

 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.827, .06, 0.266), 75)

 Now, I have a dataset something like this:

 a -1 0
 1 0.095238095238095
 1 0.214285714285714
-1 0.5
 1 0.309523809523810
-1 0.0476190476190476
 1 0.404761904761905
 1 0.119047619047619
-1 0.214285714285714
-1 0.309523809523810
 1 0
 1 0
 1 0.404761904761905
 1 0.095238095238095
 1 0.047619047619047
 1 0.380952380952381
 1 0.214285714285714
 1 0.523809523809524
 1 0
 1 0.095238095238095

 First, I make it as fractions and then sorted.
 I have played around to make it sort, but it didn't succes.

 df - read.table(textConnection(a))
 library(MASS)
 as.fractions(as.numeric(df[,2]))
 cbind(table(df[,2], df[,1]), summary(as.factor(df[,2])))
 table(frac.fun(as.numeric(df[,2]),42), df[,1])
  table(frac.fun(as.numeric(df[,2]),42), df[,1])

 -1 1
   0/42   0 4
   13/42  1 1
   16/42  0 1
   17/42  0 2
   21/42  1 0
   22/42  0 1
   2/42   1 1
   4/42   0 3
   5/42   0 1
   9/42   1 2
 

 How to make the result as sort (to increase) like this,

 -1 1
   0/42   0 4
   2/42   1 1
   4/42   0 3
   5/42   0 1
   9/42   1 2
   13/42  1 1
   16/42  0 1
   17/42  0 2
   21/42  1 0
   22/42  0 1

 Thank's for any help.

 Best, Muhammad Subianto


__
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
and provide commented, minimal, self-contained, reproducible code.

[R] convert decimals to fractions - sorted

2006-07-25 Thread Muhammad Subianto 
Dear all,
Based on my question a few months ago
https://stat.ethz.ch/pipermail/r-help/2006-January/086952.html
and solved with
https://stat.ethz.ch/pipermail/r-help/2006-January/086955.html
https://stat.ethz.ch/pipermail/r-help/2006-January/086956.html
and from
https://stat.ethz.ch/pipermail/r-help/2006-January/086958.html

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.827, .06, 0.266), 75)

Now, I have a dataset something like this:

a -1 0
1 0.095238095238095
1 0.214285714285714
   -1 0.5
1 0.309523809523810
   -1 0.0476190476190476
1 0.404761904761905
1 0.119047619047619
   -1 0.214285714285714
   -1 0.309523809523810
1 0
1 0
1 0.404761904761905
1 0.095238095238095
1 0.047619047619047
1 0.380952380952381
1 0.214285714285714
1 0.523809523809524
1 0
1 0.095238095238095

First, I make it as fractions and then sorted.
I have played around to make it sort, but it didn't succes.

df - read.table(textConnection(a))
library(MASS)
as.fractions(as.numeric(df[,2]))
cbind(table(df[,2], df[,1]), summary(as.factor(df[,2])))
table(frac.fun(as.numeric(df[,2]),42), df[,1])
 table(frac.fun(as.numeric(df[,2]),42), df[,1])

-1 1
  0/42   0 4
  13/42  1 1
  16/42  0 1
  17/42  0 2
  21/42  1 0
  22/42  0 1
  2/42   1 1
  4/42   0 3
  5/42   0 1
  9/42   1 2


How to make the result as sort (to increase) like this,

-1 1
  0/42   0 4
  2/42   1 1
  4/42   0 3
  5/42   0 1
  9/42   1 2
  13/42  1 1
  16/42  0 1
  17/42  0 2
  21/42  1 0
  22/42  0 1

Thank's for any help.

Best, Muhammad Subianto

__
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
and provide commented, minimal, self-contained, reproducible code.