aboutsummaryrefslogtreecommitdiff
path: root/gn3/computations/test_biweight.R
blob: 226912047ad7f73f1f282b8ea9c9b5c3f7723334 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
library(testthat)
source("./biweight.R", chdir = TRUE)

test_that("sum of vector", {
  results <- sum(c(1,2))
  expect_equal(results, 3)
})


test_that("biweight results"),{
	vec_1 = c(1,2,3,4)
	vec_2 = c(1,2,3,4)

	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")
	results <- ParseArgs(my_args)

	expect_equal(results[1],c(1,2,3,4))
	expect_equal(results[2],c(5,6,7,8))
}