gpt4 book ai didi

r - R 中的 NAND 运算符

转载 作者:行者123 更新时间:2023-12-01 23:14:52 26 4
gpt4 key购买 nike

R 中是否有一个“合适的”NAND 运算符,例如

nand(condition1, condition 2)

或者它只是最好的实践/唯一的可能性

!(condition1 & condition2)

还有哪些其他选择?

最佳答案

为了解决这个问题,R 中没有内置的 nand 函数,这是我能想到的唯一改进您提出的 !(x & y) 的方法 是将此操作移动到编译语言,例如

#include <Rcpp.h>

// [[Rcpp::export]]
Rcpp::LogicalVector nand(Rcpp::LogicalVector lhs, Rcpp::LogicalVector rhs) {
R_xlen_t i = 0, n = lhs.size();
Rcpp::LogicalVector result(n);

for ( ; i < n; i++) {
result[i] = !(lhs[i] && rhs[i]);
}

return result;
}

/*** R

Lhs <- rbinom(10e4, 1, .5)
Rhs <- rbinom(10e4, 1, .5)

r_nand <- function(x, y) !(x & y)

all.equal(nand(Lhs, Rhs), r_nand(Lhs, Rhs))
#[1] TRUE

microbenchmark::microbenchmark(
nand(Lhs, Rhs), r_nand(Lhs, Rhs),
times = 200L)
#Unit: microseconds
# expr min lq mean median uq max neval
# nand(Lhs, Rhs) 716.140 749.926 1215.353 771.015 1856.734 6332.284 200
#r_nand(Lhs, Rhs) 3337.494 3397.809 5106.614 3461.845 4985.807 95226.834 200

*/

这是否值得麻烦可能取决于您需要多久调用一次 nand。对于大多数用途,上面的 r_nand 应该足够了。其实base::xor的实现方式类似:

base::xor
#function (x, y)
#{
# (x | y) & !(x & y)
#}
#<bytecode: 0x2fbbb90>
#<environment: namespace:base>

关于r - R 中的 NAND 运算符,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/35186933/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com