si no condiciones en R?

Question

¿hay algo así como las condiciones "si no" en R?

fácil Ejemplo (no funciona):

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

fun(5) 

mejores deseos Philipp

Answer 1

El problema está en cómo se está definiendo la condición. Debe ser

if(!(x > 0)){ 

en lugar de

if(!x > 0){ 

Esto es porque !x convierte la entrada (un valor numérico) a una lógica - que dará TRUE para todos los valores excepto cero. Entonces:

> 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" 

Answer 2

Probar:

if(!condition) { do something } 

Answer 3

¿Qué tal esto?

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

fun(5)

[1] "Bigger than zero"