Comment tester quand la condition retourne numérique (0) dans R

Question

imaginons que vous souhaitiez construire un test simple basé sur la condition setdiff(input, 1:9).

Comment puis-je construire un

if isnotempty(setdiff(input, 1:9)) stop ("not valid")

déclaration qui arrête l'exécution lorsque l'entrée est c(3, 12) mais continue quand l'entrée est c(2,5,7) dire? Merci beaucoup, Bertie

25

r

demandé sur sgibb 2012-05-19 15:10:59

4 réponses

score 36 · Answer 1

Vous pouvez utiliser ?length:

isEmpty <- function(x) {
    return(length(x)==0)
}

input <- c(3, 12);

if (!isEmpty(setdiff(input, 1:9))) {
    stop ("not valid")
}

score 11 · Answer 2

Voici une autre option identical(x, numeric(0)). Voici un exemple (en gros tout pris de sgibb et remplacé la ligne de clé que je suis paresseux):

isEmpty <- function(x) {
    return(identical(x, numeric(0)))
}

input <- c(3, 12)

if (!isEmpty(setdiff(input, 1:9))) {
    stop ("not valid")
}

score 0 · Answer 3

ceci ne répond pas à la question dans votre ligne d'objet, mais je pense que c'est une meilleure approche pour ce que vous essayez d'atteindre:

 if(!all(input %in% 1:9)) stop("not valid")

score 0 · Answer 4

j'ai aimé la fonction isEmpty. Je propose ce qui suit, juste au cas où vous parsez un vecteur, ou une liste:

isEmpty <- function(x) {
s<-sapply(x, function(y) length(y)==0, simplify = T)
return(s)
}