diff options
| author | Alexander Kabui | 2021-06-20 09:04:55 +0300 |
|---|---|---|
| committer | Alexander Kabui | 2021-06-20 09:04:55 +0300 |
| commit | 864f231bbdbe2c3b3c96b0158a15811ac7790c3f (patch) | |
| tree | d0d0eee217c984bd72ecfacc0b131848fcb5b89d /gn3/computations/biweight.R | |
| parent | b566a8950864a373f95ae2914b862e9846297b2d (diff) | |
| download | genenetwork3-864f231bbdbe2c3b3c96b0158a15811ac7790c3f.tar.gz | |
make requested changes to biweight
Diffstat (limited to 'gn3/computations/biweight.R')
| -rw-r--r-- | gn3/computations/biweight.R | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/gn3/computations/biweight.R b/gn3/computations/biweight.R deleted file mode 100644 index e424360..0000000 --- a/gn3/computations/biweight.R +++ /dev/null @@ -1,23 +0,0 @@ - -library(WGCNA) - -arg_values <- commandArgs(trailingOnly = TRUE) -ParseArgs <- function(args){ - - trait_vals <- as.numeric(unlist(strsplit(args[1], split=" "))) - target_vals <- as.numeric(unlist(strsplit(args[2], split=" "))) - - return(list(trait_vals= c(trait_vals),target_vals = c(target_vals))) - -} -BiweightMidCorrelation <- function(trait_val,target_val){ - - results <- bicorAndPvalue(c(trait_val),c(target_val)) - return ((c(c(results$bicor)[1],c(results$p)[1]))) - -} - - -parsed_values <- ParseArgs(arg_values) - -cat((BiweightMidCorrelation(parsed_values[1],parsed_values[2])))
\ No newline at end of file |