Re: [Rd] Trouble with ifelse and if statement (PR#7962)

From: Martin Maechler <maechler_at_stat.math.ethz.ch>
Date: Wed 22 Jun 2005 - 08:06:34 GMT

       
       <........nonsense non-bug report by Woolton........>

    Marc> This is not a bug and yes you have missed something.

    Marc> Read R FAQ 7.31 Why doesn't R think these numbers are equal?

    Marc> More information is also available here:

    Marc> http://grouper.ieee.org/groups/754/

thank you, Marc.

    Marc> One possible solution:

>> i

    Marc> [1] 0.08 0.00 0.33 0.00 0.00 0.00 0.00 0.33 0.00 0.00 0.08 0.08 0.20     Marc> [14] 0.00 0.13

Note that a slightly more recommended way for the following is

  as.integer(sapply(i, function(x) isTRUE(all.equal(x, 0.33))))

using the isTRUE(all.equal(...)) idiom which I'd recommend quite generally.

Martin

>> ifelse(sapply(i, function(x) all.equal(x, 0.33)) == "TRUE", 1, 0)
    Marc> [1] 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0

>> ifelse(sapply(i, function(x) all.equal(x, 0.08)) == "TRUE", 1, 0)
    Marc> [1] 1 0 0 0 0 0 0 0 0 0 1 1 0 0 0

>> ifelse(sapply(i, function(x) all.equal(x, 0.2)) == "TRUE", 1, 0)
    Marc> [1] 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0

Martin



R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel Received on Wed Jun 22 18:09:40 2005

This archive was generated by hypermail 2.1.8 : Mon 20 Feb 2006 - 03:21:09 GMT