如果不是R中的条件？

R中是否有类似“如果没有”的条件

简单示例（不起作用）：

fun0）{打印（“不大于零”）}
}
乐趣（5）

试试：

这个怎么样

fun <- function(x){
ifelse(x > 0, "not bigger than zero", "zero or less")
}

---

问题在于如何定义条件。应该是

    if(!(x > 0)){ 

而不是

    if(!x > 0){ 

这是因为

！x

将输入（数字）转换为逻辑-这将为除零以外的所有值提供

TRUE

。因此：

> fun <- function(x){
+   if (!(x > 0)) {print ("not bigger than zero")}
+ }
> fun(1)
> fun(0)
[1] "not bigger than zero"
> fun(-1)
[1] "not bigger than zero"

>fun0）{print（“不大于零”）}
+ }
>乐趣（1）
>乐趣（0）
[1] “不大于零”
>乐趣（-1）
[1] “不大于零”

我已经尝试过了，但这不是解决方案：-（在上面添加了一个简单的示例。您的示例工作正常。请尝试

fun（0）

。对于5，它表示“if not 5>0”。5大于0，因此这是

TRUE

，但not使其

FALSE

。if else应仅用于长度大于1的向量

[1] "Bigger than zero"

    if(!(x > 0)){ 

    if(!x > 0){ 

> fun <- function(x){
+   if (!(x > 0)) {print ("not bigger than zero")}
+ }
> fun(1)
> fun(0)
[1] "not bigger than zero"
> fun(-1)
[1] "not bigger than zero"