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"
>
ただし注意のこと