r - R中的NAND运算符

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/