diff options
| author | Alexander Kabui | 2021-06-14 13:50:21 +0300 |
|---|---|---|
| committer | Alexander Kabui | 2021-06-14 13:50:21 +0300 |
| commit | f9dec15fb4a1fc24dfb963ed69f2a5cbbd4f31d3 (patch) | |
| tree | d48f4700830d22e2fd0f500e2b9fe7bf3548ef25 /gn3/computations/biweight.R | |
| parent | 57a6af689e85e5cbfe0a825d5b84ed9c451e6ad7 (diff) | |
| download | genenetwork3-f9dec15fb4a1fc24dfb963ed69f2a5cbbd4f31d3.tar.gz | |
fix missing call to bicorAndPvalue
Diffstat (limited to 'gn3/computations/biweight.R')
| -rw-r--r-- | gn3/computations/biweight.R | 2 |
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)) |