[R語言]四捨五入、無條件進位與無條件捨去

原始文章

[R語言]四捨五入、無條件進位與無條件捨去

---

在R語言內建的Function中，只有四捨五入(Round)，似乎沒有無條件進位或是無條件捨去，這在實務上滿不方便的，所以我們只好自己寫一個。

# 內建四捨五入
round(1254, -2)
> 1300
round(0.1254, 2)
> 0.13

來吧，複製貼上

floor_dec <- function(x, level=1) round(x - 5*10^(-level-1), level)
ceiling_dec <- function(x, level=1) round(x + 5*10^(-level-1), level)
floor_dec(0.1254, 1)
> 0.1
floor_dec(0.1254, 2)
> 0.12
floor_dec(1254, -2)
> 1200
ceiling_dec(1254, -2)
> 1300

---

推薦文章

在DataCamp學Python和R語言，快速入門資料科學

---