强制 R 将 0/0 打印为 1

Question

当我在 R 中执行 0 / 0 时，我会得到一个 NaN 作为输出。但是有什么方法可以将 0 / 0 打印为 1？我知道我可以使用一些 if 语句来实现它。我想知道是否有任何其他方法可以实现此目的。

Answer 1

除了使用 If 语句之外的其他方法是

# Assign NaN to vector
a <- 0 / 0
# If is NaN assign value 1
a[is.nan(a)] <- 1

Answer 2

您可以专门为此定义自己的除法符号。例如，

'|' <- function(a,b)ifelse(a==0 & b==0, 1, a/b)

> 0|0
[1] 1
> 3|4
[1] 0.75