Фильтр по колонкам

colnames(x)[apply(x,2,condition)]

ZVcolnames <- colnames(dataset)[apply(dataset,2,function(v) var(v, na.rm=TRUE)!=0)]
testdataset <- testdataset[ZVcolnames]

Ошибка в `[.data.frame`(testdataset, , NAcolnames) : 
  undefined columns selected

> iris[colnames(iris)[(apply(iris,2,function(v) 1))]]
    Sepal.Length Sepal.Length.1 Sepal.Length.2 Sepal.Length.3 Sepal.Length.4
1            5.1            5.1            5.1            5.1            5.1
2            4.9            4.9            4.9            4.9            4.9
3            4.7            4.7            4.7            4.7            4.7
.....

> iris[colnames(iris)[as.logical(apply(iris,2,function(v) 1))]]
    Sepal.Length Sepal.Width Petal.Length Petal.Width    Species
1            5.1         3.5          1.4         0.2     setosa
2            4.9         3.0          1.4         0.2     setosa
3            4.7         3.2          1.3         0.2     setosa
....

> colnames(iris)[apply(iris,2,function(v) var(v, na.rm=TRUE)!=0)]
[1] "Sepal.Length" "Sepal.Width"  "Petal.Length" "Petal.Width"  NA            
Предупреждение
In var(v, na.rm = TRUE) : в результате преобразования созданы NA