[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語言,快速入門資料科學

Content Protection by DMCA.com
程式筆記

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *