Commit 88f42b91 authored by Simon CHEVOLLEAU's avatar Simon CHEVOLLEAU 💻
Browse files

Update

parent a5684ae6
......@@ -245,9 +245,9 @@ umapExpr <- function(umapAll, gene, correctedAll, annot, dataset="Dataset", samp
print(paste0("gene : ", gene))
print(paste0("annotation : ", annot))
plot <- proj2d(umapAll, 1:2, group = as.numeric(correctedAll[gene,]), pointSize=pointSize, plotText=FALSE, main = main, returnGraph=T, colorScale = colorScale)
if (violin_plot)
violinPlot(sampleAnnot[, annot], as.numeric(correctedAll[gene,]), sampleAnnot[, dataset], title.x=annot,title.group=dataset, title.y=gene, title=main)
}
#if (violin_plot)
# violinPlot(sampleAnnot[, annot], as.numeric(correctedAll[gene,]), sampleAnnot[, dataset], title.x=annot,title.group=dataset, title.y=gene, title=main)
#}
return(plot)
}
......
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