aboutsummaryrefslogtreecommitdiff
path: root/scripts/calculate_biweight.R
diff options
context:
space:
mode:
authorAlexander Kabui2021-06-23 10:18:54 +0300
committerAlexander Kabui2021-06-23 10:18:54 +0300
commitfed7009b5eec9cc8b9370d4fb8486c7e4136b3d4 (patch)
tree6e1decbe45fe98d212ab976a57cbba246c8a54a3 /scripts/calculate_biweight.R
parent3cc3cf68c2dcbdc2cd496f8e2728a59fbb6614e6 (diff)
downloadgenenetwork3-fed7009b5eec9cc8b9370d4fb8486c7e4136b3d4.tar.gz
minor fixes for biweight script
Diffstat (limited to 'scripts/calculate_biweight.R')
-rw-r--r--scripts/calculate_biweight.R5
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