R中有"if not"条件吗?
简单示例(不工作):
fun <- function(x)
{
if (!x > 0) {print ("not bigger than zero")}
}
fun(5)
Run Code Online (Sandbox Code Playgroud)
nul*_*lob 26
问题在于如何定义条件.它应该是
if(!(x > 0)){
Run Code Online (Sandbox Code Playgroud)
代替
if(!x > 0){
Run Code Online (Sandbox Code Playgroud)
这是因为!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"
Run Code Online (Sandbox Code Playgroud)