■

今更ですが，Rの中で数字がどのように扱われているかに気づきました。これ。とりあえず，値が等しいとか，数値を比較する場合は注意が必要。KTさんが，最近みんなコンピュータ使ってるけど，コンピュータ内での計算誤差ってどれくらい気にしているのかな，と言っていたのを思いだした。

こんなことしなくても，上の例でも分かりますが。

options(digits = 20)
(a <- c(1.1,1.1,1.01,1.1,1,1,2,1,2,1,2,200,1000,10000,1000000))
(a <- a/100)
min.a <- quantile(a, prob=0.05, names=FALSE)
ifelse (a <= min.a, 1, 0)