есть ли что-нибудь как "если не" условия в R?
легкий Пример (не работающий):
fun <- function(x)
{
if (!x > 0) {print ("not bigger than zero")}
}
fun(5)
Проблема в том, как вы определяете условие. Это должно быть
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"
Как насчет этого?
fun <-function (x) {
ifelse (x> 0, «не больше нуля», «ноль или меньше»)
}
fun (5)
[1] "Bigger than zero"