[解決済み] Rで条件がnumeric(0)を返すかどうかをテストする方法

質問

という条件に基づいて、簡単なテストを作成したいとします。 setdiff(input, 1:9) .

を構築するにはどうすればよいのでしょうか？

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

が入力されたときに実行を停止するステートメントです。 c(3, 12) であれば、入力は継続されます。 c(2,5,7) と言ってください。 ありがとうございました。 バーティ

解決方法は？

を使用することができます。 ?length :

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

input <- c(3, 12);

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