[[Rの備忘録]] > (x <- 2.3 - 1.3) [1] 1 > # 厳密には1ではない > sprintf("%.16f", x) [1] "0.9999999999999998" > # したがって1との比較は偽になる > if (x >= 1) print("x >=1") else print("x<1") [1] "x<1" > # このような場合に「zapsmall」が使えることがある > if (zapsmall (x) >= 1) print("x >=1") else print("x<1") [1] "x >=1" > ただし[[注意:http://tolstoy.newcastle.edu.au/R/devel/05/03/0270.html]]のこと