d=sqrt((4-1)^2+(5-2)^2+(6-3)^2)



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