gpt4 book ai didi

R: ifelse 把 numeric(0) 变成 NA

转载 作者:行者123 更新时间:2023-12-03 16:21:41 25 4
gpt4 key购买 nike

有人可以向我解释为什么会发生以下情况吗?

ifelse(TRUE, numeric(0), 1)
> [1] NA

我当然希望数字(0)。
我怀疑这是因为 ifelse 是矢量化的,例如以下工作,但我不明白到底发生了什么。
if (TRUE) numeric(0) else 1
#> numeric(0)

最佳答案

您可以访问ifelse的实现,这是

function (test, yes, no) 
{
if (is.atomic(test)) {
if (typeof(test) != "logical")
storage.mode(test) <- "logical"
if (length(test) == 1 && is.null(attributes(test))) {
#... let's skip this part..
}
}
else test <- if (isS4(test))
methods::as(test, "logical")
else as.logical(test)
ans <- test
len <- length(ans)
ypos <- which(test)
npos <- which(!test)
if (length(ypos) > 0L)
ans[ypos] <- rep(yes, length.out = len)[ypos]
if (length(npos) > 0L)
ans[npos] <- rep(no, length.out = len)[npos]
ans
}
<bytecode: 0x00000123e6b7d3a0>
<environment: namespace:base>

所以,是的,这是因为 ifelse被矢量化 - 特别是沿着条件 - 和返回对象 ans被初始化为与条件长度相同的向量。
ifelse的说明状态

ifelse returns a value with the same shape as test which is filled with elements selected from either yes or no depending on whether the element of test is TRUE or FALSE.



test <- TRUE .有趣的线条是
ypos <- which(test)
rep(numeric(0), length.out = 1)[ypos]

关于R: ifelse 把 numeric(0) 变成 NA,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/61248689/

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