我有一个数据集，其中的数字有几个有效数字。我需要向上舍入到最近的小数点，向下舍入到最近的小数点。
下面是一个代码示例，其中包含一些与我正在使用的随机数类似的随机数：

x <- c(0.987, 1.125, 0.87359, 1.2)

high_rounded <- round(x, digits = 1)
low_rounded <- high_rounded - 0.1

字符串
然后我需要能够在进一步的分析中使用high_rounded和low_rounded变量。我现在写的代码只有在向上舍入的时候才能工作，但是如果需要向下舍入，它就不工作了。round（）函数只用于舍入一个数字，但是它需要被舍入，但是我不能指定向上或向下舍入。
我也尝试过：
ceiling(x)
但这只是四舍五入到最近的整数，我需要最近的小数点。