Commit c1cd12c5 authored by Jakob Wirbel's avatar Jakob Wirbel
Browse files

enforce tab limit for bioconductor.

parent 724e37b3
......@@ -186,8 +186,8 @@ check.associations <- function(siamcat, fn.plot=NULL, color.scheme = "RdYlBu",
# check that each entry in "paired" has two samples associated with
# a different label, filter out the rest
groups <- unique(meta[[paired]])
if (verbose > 2) message("+++ Starting with ", length(groups),
" pairings")
if (verbose > 2) message("+++ Starting with ",
length(groups), " pairings")
groups.red <- groups[vapply(groups, FUN = function(x){
temp <- label$label[rownames(meta[meta[[paired]]==x,])]
if (length(unique(temp))!=2){
......@@ -1397,7 +1397,6 @@ analyse.binary.marker <- function(feat, label, detect.lim, colors,
}
if (verbose)
pb$tick()
return(c('fc' = fc, 'p.val' = p.val, 'auc' = aucs[2],
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment