Commit 2b828850 authored by Eric CHARPENTIER's avatar Eric CHARPENTIER 🐍
Browse files

fixed bug when scaling with NA values in DEG heatmap

parent 3f119742
......@@ -296,6 +296,7 @@ if(nrow(DE.sel$isDE)>=10){
hclustSampleDE<-unsupervisedClustering(exprDE.scaled,transpose = T,nboot=nboot,bootstrap = bootTemp,method.dist = "euclidean")
rowScaledExpr<-rowScale(exprDatT,center=TRUE,scale=TRUE)
rowScaledExpr<-na.omit(rowScaledExpr)
quantile.expr<-quantile(unlist(rowScaledExpr),seq(0,1,.01))
colHA=colorRamp2(c(quantile.expr[2],0,quantile.expr[100]),c("blue","white","red"))
......
Markdown is supported
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