0

別の投稿を参照する# R で複数の列を除外する; そこでは、すべて 0 の列を除外するように求められました (列の値はすべて 0 です)。次のコードを使用します。

f0 <- function(x) any(x!=0) & is.numeric(x)
trainingdata <- lapply(trainingdata, function(data) cbind(label=data$label, 
                                colwise(identity, f0)(data)))

0 のみを含む列を除外できます。1 のみを含む列を除外する必要もあります (列のすべての値が 1 であることを意味します)。私は次のことを試しました：

f0 <- function(x) all(x==1) | any(x!=0) & is.numeric(x)

また

f0 <- function(x) all(x!=1) | any(x!=0) & is.numeric(x)

しかし、それは機能していません。

4

1 に答える 1

2

ANDではなく論理的な2番目の関数とORチェックが機能するany(x!=1)はずです。

ただし、わかりやすくするために、これらを 2 つの別個の関数として記述し、それぞれのチェックを個別に行います。

于 2013-03-05T17:14:28.813 に答える