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 | |
| parent | bc7d84077a3e99f8fd54f2e0050ac4bad8a36b01 (diff) | |
| download | genenetwork3-b566a8950864a373f95ae2914b862e9846297b2d.tar.gz | |
add r-wgna package
| -rw-r--r-- | gn3/computations/test_biweight.R | 8 | ||||
| -rw-r--r-- | guix.scm | 2 |
2 files changed, 5 insertions, 5 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)) diff --git a/guix.scm b/guix.scm index bf700d0..d41600d 100644 --- a/guix.scm +++ b/guix.scm @@ -89,7 +89,7 @@ ("r-qtl" ,r-qtl) ("r-testthat" ,r-testthat) ("r-optparse" ,r-optparse) - ; ("r-wgcna" ,r-wgcna) + ("r-wgcna" ,r-wgcna) )) (build-system python-build-system) (home-page "https://github.com/genenetwork/genenetwork3") |