improve filtering of features without ...

... sufficient numbers of paired samples.
Implementation now identical to ttest.

Author: grlloyd

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: structToolbox
 Type: Package
 Title: Some tools bult using the struct package
-Version: 0.8.3
+Version: 0.8.5
 Author: Gavin Rhys Lloyd
 Maintainer: Gavin Rhys Lloyd <[email protected]>
 Description: Extends the class templates provided by the struct package to provide methods for training PCA, PLS models with cross-validation, permutation testing etc.

R/wilcox_test_class.R

@@ -146,8 +146,9 @@ setMethod(f="model.apply",
             D=predicted(FF)
 
             # check equal numbers per class. if not equal then exclude.
-            out=FF$count[,1]!=FF$count[,2]
-            D$data=D$data[,!out]
+            IN=rownames(FF$count)[(FF$count[,1]==FF$count[,2]) & (FF$count[,1]>2) & (FF$count[,2]>2)]
+            D$data=D$data[,IN]
+            D$variable_meta=D$variable_meta[IN,]
         }