Commit b8c7ca67 authored by Amine  GHOZLANE's avatar Amine GHOZLANE
Browse files

Solve correlation table bug with non numeric data

parent ef2de4f7
Pipeline #60364 passed with stages
in 148 minutes and 57 seconds
......@@ -400,8 +400,9 @@ Plot_Visu_Scatterplot<- function(input,resDiff,export=FALSE,lmEst = FALSE,CorEst
numInd=which(typesTarget[2:ncol(target)])
if(any(numInd)) data = cbind(target[,numInd],log2(t(counts)+1),div)
if(!any(numInd)) data = cbind(log2(t(counts)+1),div)
cor.est = round(cor(as.matrix(data),method = input$CorMeth),3)
typesdata = sapply(data,is.numeric)
cor.est = round(cor(data[,typesdata],method = input$CorMeth),3)
#cor.est = round(cor(data[,numInd],method = input$CorMeth),3)
#cor.pvalue = cor.test(data,method = input$CorMeth)
return(list(cor.est=cor.est))
}
......
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