d=abs(4-1)/(4)+abs(5-2)/(5)+abs(6-3)/(6)


test_that("RelativeDistance", {
  expect_equal(RelativeDistance(c(1,2,3), c(4,5,6)), d,tolerance=1e-6)
})