使用 R，如何对有符号（负）整数进行按位移位？

Question

在 c 语法中，我们可以移动有符号整数（负数）：如果我们想强制和无符号整数移动，我们可以使用“>>>”。

y = -1732584194
(y>>16)

-26438

x = 1732584193
(x>>16)

26437

使用R，有位运算符https://stat.ethz.ch/R-manual/R-devel/library/base/html/bitwise.html

?bitwShiftL 例如显示相同的页面。它指出：“假设值表示无符号整数，则完成移位。”

y = -1732584194
bitwShiftR(y,16)  
# [1] 39098     ## wanted -26438


x = 1732584193
bitwShiftR(x,16)
# [1] 26437    ## works as expected

展示如何使用 R 统计编程语言执行有符号移位？

Answer 1

换个方向：

> y = -1732584194
> -bitwShiftR(-y,16) - 1
[1] -26438

Answer 2

您可以定义自己的函数来执行此操作：

Rshift <- function(val, nbits) floor(val/2^nbits)

这给出了：

y = -1732584194
Rshift(y, 16)
#> [1] -26438

y = 1732584194
Rshift(y, 16)
#> [1] 26437

或者如果你习惯用 C 编码，用 C 编写一个函数并使用 Rcpp 将其编译为 R 函数：

Rcpp::cppFunction("long long RShift(long long a, int b) { return a >> b;}")

y = -1732584194
RShift(y, 16)
#> [1] -26438

y = 1732584194
RShift(y, 16)
#> [1] 26437