aboutsummaryrefslogtreecommitdiff
path: root/gn3/computations/biweight.R
diff options
context:
space:
mode:
authorAlexander Kabui2021-06-14 13:50:21 +0300
committerAlexander Kabui2021-06-14 13:50:21 +0300
commitf9dec15fb4a1fc24dfb963ed69f2a5cbbd4f31d3 (patch)
treed48f4700830d22e2fd0f500e2b9fe7bf3548ef25 /gn3/computations/biweight.R
parent57a6af689e85e5cbfe0a825d5b84ed9c451e6ad7 (diff)
downloadgenenetwork3-f9dec15fb4a1fc24dfb963ed69f2a5cbbd4f31d3.tar.gz
fix missing call to bicorAndPvalue
Diffstat (limited to 'gn3/computations/biweight.R')
-rw-r--r--gn3/computations/biweight.R2
1 files changed, 1 insertions, 1 deletions
diff --git a/gn3/computations/biweight.R b/gn3/computations/biweight.R
index d0d8de4..05f7145 100644
--- a/gn3/computations/biweight.R
+++ b/gn3/computations/biweight.R
@@ -7,7 +7,7 @@ trait_vals <- as.numeric(unlist(strsplit(myArgs[1], split=" ")))
target_vals <- as.numeric(unlist(strsplit(myArgs[2], split=" ")))
BiweightMidCorrelation <- function(trait_val,target_val){
- # results <- bicorAndPvalue(x,y)
+ results <- bicorAndPvalue(x,y)
return (list(c(results$bicor)[1],c(results$p)[1]))
}
cat(BiweightMidCorrelation(trait_vals,target_vals))