［R］小数点以下の四捨五入を行う

round関数を使う。JIS Z 8401に基づくいわゆる偶数丸めであることに注意。

> d <- c(0.4, 0.5, 0.6, 1.4, 1.5, 1.6)
> for (i in 1:length(d))
+ cat(sprintf("%f -> %f\n", d[i], round(d[i])))
0.400000 -> 0.000000
0.500000 -> 0.000000
0.600000 -> 1.000000
1.400000 -> 1.000000
1.500000 -> 2.000000
1.600000 -> 2.000000
> d <- c(-0.4, -0.5, -0.6, -1.4, -1.5, -1.6)
> for (i in 1:length(d))
+ cat(sprintf("%f -> %f\n", d[i], round(d[i])))
-0.400000 -> -0.000000
-0.500000 -> -0.000000
-0.600000 -> -1.000000
-1.400000 -> -1.000000
-1.500000 -> -2.000000
-1.600000 -> -2.000000