Description Usage Arguments Examples
Please refer to the file /inst/doc/readme.pdf.
1 | identifyUbqRepeat(data, pre_ratioC = NULL, lower_trimC = NULL, upper_trimC = NULL)
|
data |
|
pre_ratioC |
|
lower_trimC |
|
upper_trimC |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (data, pre_ratioC = NULL, lower_trimC = NULL, upper_trimC = NULL)
{
qlower <- apply(data, 2, function(x) quantile(x[x != 0],
p = lower_trimC))
qupper <- apply(data, 2, function(x) quantile(x[x != 0],
p = upper_trimC))
ubq_genes <- NULL
for (i in 1:nrow(data)) {
genes_finded <- findGenes(data[i, ], qlower = qlower,
qupper = qupper, pre_ratio = pre_ratioC)
ubq_genes <- c(ubq_genes, genes_finded)
}
return(ubq_genes)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.