R studio中未检测到该变量

Question

我的代码有问题:

k=1.815264e-06  
b=1/k
alpha = 0.05
p=90
pstar=1/(1+p)
pstar1=pstar
sxinvers=function(x)
{-b*log(x)}
if (alpha < pstar){
retensiCTE = sxinvers(pstar)
} else if (alpha == pstar){
retensiCTE >= sxinvers(pstar)
}
retensiCTE

当我运行这段代码时，我得到一个

错误:对象'retensiCTE'未找到

为什么会发生这种情况?有人能帮我吗?

Answer 1

您的alpha不小于pstar且不相等，因此我添加了一个带有NA的else语句来完成它。在R中，函数的最后一行是自动返回的，所以我在每个语句的末尾添加retensiCTE，如下所示:

k=1.815264e-06  
b=1/k
alpha = 0.05
p=90
pstar=1/(1+p)
pstar1=pstar
sxinvers=function(x) {-b*log(x)}
if (alpha < pstar) {
retensiCTE = sxinvers(pstar)
retensiCTE
} else if (alpha == pstar){
retensiCTE >= sxinvers(pstar)
retensiCTE
} else {NA}
#> [1] NA

^{创建于2022-12-31与reprex v2.0.2}