Description Usage Arguments Details Value Author(s) See Also Examples
This function applies a PreFilter
to an ExprTreeSet
.
1 2 3 4 5 6 7 8 9 10 11 12 |
xps.expr |
object of class |
filename |
file name of ROOT filter file. |
filedir |
system directory where ROOT filter file should be stored. |
filter |
object of class |
minfilters |
minimum number of initialized filter methods to satisfy (default is all filters). |
logbase |
convert data to logarithm of base: |
treename |
tree name to be used in ROOT filter file. |
xps.call |
optional object of class |
verbose |
logical, if |
object |
object of class |
... |
same arguments as function |
This function applies the different filters initialized with constructor PreFilter
to the ExprTreeSet
xps.expr
.
Slot minfilters
determines the minimum number of initialized filters, which must be satisfied
so that the mask is set to flag=1
. For minfilters=1
at least one filter must be
satisfied, equivalent to logical ‘OR’; for minfilters=999
all filters must be
satisfied, equivalent to logical ‘AND’.
If method callFilter
was initialized with constructor PreFilter
then CallTreeSet
xps.call
must be supplied, usually created with function
mas5.call
.
A FilterTreeSet
Christian Stratowa
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | ## Not run:
## first, load ROOT scheme file and ROOT data file
scheme.test3 <- root.scheme(paste(path.package("xps"),"schemes/SchemeTest3.root",sep="/"))
data.test3 <- root.data(scheme.test3, paste(path.package("xps"),"rootdata/DataTest3_cel.root",sep="/"))
## second, create an ExprTreeSet
data.rma <- rma(data.test3,"tmp_TestRMA",tmpdir="",background="pmonly",normalize=TRUE,verbose=FALSE)
## note: do not copy/paste this code, it is necessary only because R CMD check fails since it does not find tmp_TestRMA.root:
data.rma@rootfile <- paste(path.package("xps"),"rootdata/tmp_Test3RMA.root",sep="/")
data.rma@filedir <- paste(path.package("xps"),"rootdata",sep="/")
## third, construct a PreFilter
prefltr <- PreFilter(mad=c(0.5,0.01),lothreshold=c(6.0,0.02,"mean"),hithreshold=c(10.5,80.0,"percent"))
## finally, create a FilterTreeSet
rma.pfr <- prefilter(data.rma,"tmp_Test3Prefilter",getwd(),prefltr,2,verbose=FALSE)
str(rma.pfr)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.