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