Commit b3e77e3c authored by Yong Liu's avatar Yong Liu

#5757

parent 398bd6ab
......@@ -5502,7 +5502,7 @@ compareDataExport <- function(comparedScript, len, ...){
tryCatch({
cor.S = cor.test(sdcObject@origData[,selTab[]], data[,selTab[]], method = svalue(methodSel))
rho= cor.S$estimate
svalue(outputlabel) <- paste(c("The cor is:", "The tau is:", "The rho is:")[grep(svalue(methodSel), c("pearson", "kendall", "spearman"))], rho, sep="")}
svalue(outputlabel) <- paste("statistic=", cor.S$statistic, "\n","p=", cor.S$p.value, "\n", c("The cor is:", "The tau is:", "The rho is:")[grep(svalue(methodSel), c("pearson", "kendall", "spearman"))], rho, sep="")}
,
error=function(e){
svalue(outputlabel) <- paste("error:\n", e, "")
......
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