R中對(duì)小數(shù)進(jìn)行舍入操作是“四舍六入口糕，五成雙”浩聋， 如：
round(3.455, 2)
[1] 3.46
round(3.465, 2)
[1] 3.46
要執(zhí)行“四舍五入”需要沖重寫(xiě)round函數(shù)：
round_f <- function(data, n){
data_sign <- sign(data)
data <- abs(data) * 10 ^ n
data <- data + 0.5
data <- trunc(data)
return (data_sign * data / 10 ^ n)
}
采樣round_f,可以實(shí)現(xiàn)“四舍五入”
round_f(3.465, 2)
[1] 3.47
round_f(3.455, 2)
[1] 3.46
