diff options
| author | Alexander Kabui | 2021-06-23 10:18:54 +0300 |
|---|---|---|
| committer | Alexander Kabui | 2021-06-23 10:18:54 +0300 |
| commit | fed7009b5eec9cc8b9370d4fb8486c7e4136b3d4 (patch) | |
| tree | 6e1decbe45fe98d212ab976a57cbba246c8a54a3 /scripts/calculate_biweight.R | |
| parent | 3cc3cf68c2dcbdc2cd496f8e2728a59fbb6614e6 (diff) | |
| download | genenetwork3-fed7009b5eec9cc8b9370d4fb8486c7e4136b3d4.tar.gz | |
minor fixes for biweight script
Diffstat (limited to 'scripts/calculate_biweight.R')
| -rw-r--r-- | scripts/calculate_biweight.R | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/scripts/calculate_biweight.R b/scripts/calculate_biweight.R index bad93cb..8d8366e 100644 --- a/scripts/calculate_biweight.R +++ b/scripts/calculate_biweight.R @@ -13,7 +13,7 @@ ParseArgs <- function(args){ } BiweightMidCorrelation <- function(trait_val,target_val){ - results <- bicorAndPvalue(c(trait_val),c(target_val)) + results <-bicorAndPvalue(as.numeric(unlist(trait_val)),as.numeric(unlist(target_val))) return ((c(c(results$bicor)[1],c(results$p)[1]))) } @@ -39,4 +39,5 @@ test_that("parsing args "),{ parsed_values <- ParseArgs(arg_values) -cat((BiweightMidCorrelation(parsed_values[1],parsed_values[2])))
\ No newline at end of file + +cat(BiweightMidCorrelation(parsed_values[1],parsed_values[2]))
\ No newline at end of file |