diff options
| author | Alexander Kabui | 2021-06-16 14:07:24 +0300 |
|---|---|---|
| committer | Alexander Kabui | 2021-06-16 14:07:24 +0300 |
| commit | b566a8950864a373f95ae2914b862e9846297b2d (patch) | |
| tree | 09e0bb88a5ef56e9ec290be0e6107f309eacec63 /gn3 | |
| parent | bc7d84077a3e99f8fd54f2e0050ac4bad8a36b01 (diff) | |
| download | genenetwork3-b566a8950864a373f95ae2914b862e9846297b2d.tar.gz | |
add r-wgna package
Diffstat (limited to 'gn3')
| -rw-r--r-- | gn3/computations/test_biweight.R | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gn3/computations/test_biweight.R b/gn3/computations/test_biweight.R index 2269120..599e733 100644 --- a/gn3/computations/test_biweight.R +++ b/gn3/computations/test_biweight.R @@ -8,16 +8,16 @@ test_that("sum of vector", { test_that("biweight results"),{ - vec_1 = c(1,2,3,4) - vec_2 = c(1,2,3,4) + vec_1 <- c(1,2,3,4) + vec_2 <- c(1,2,3,4) - results = BiweightMidCorrelation(vec_1,vec_2) + results <- BiweightMidCorrelation(vec_1,vec_2) expect_equal(c(1.0,0.0),results) } test_that("parsing args "),{ - my_args = c("1 2 3 4","5 6 7 8") + my_args <- c("1 2 3 4","5 6 7 8") results <- ParseArgs(my_args) expect_equal(results[1],c(1,2,3,4)) |