tests/testthat/test-xform.R

In flyconnectome/fanc: Support Access to the Female Adult Nerve Cord (FANC) Dataset

test_that("fanc4to3 works", {
  # https://radagast.hms.harvard.edu/catmaidvnc/?pid=13&zp=117630&yp=470101.3&xp=194569.2&tool=tracingtool&active_skeleton_id=1377198&active_node_id=18180879&sid0=10&s0=-2

    # nb xyzmatrix sets column names
  fanc3=xyzmatrix(cbind(194569.2, 470101.3, 117630))
  fanc4=cbind(45224, 109317, 2614)*c(4.3,4.3,45)
  expect_equal(fanc4to3(fanc4), fanc3, tolerance = 1e-5)

  locs=matrix(c(29858,109329,1878,
                32918,110461,2174),
              ncol=3, byrow = T)
  baseline=structure(c(29858, 32918, 109329, 110461, 1878, 2174),
                     .Dim = 2:3, .Dimnames = list(NULL, c("X", "Y", "Z")))

  expect_equal(nat.templatebrains::xform_brain(locs, reference = "FANC3", sample='FANC4'),
               baseline)
})