Product of affine transformations

Source: R/prod_affine_registration.R

Product of affine transformations

prod_affine_registration(x)

Arguments

x

tibble of Registrations as issued from read_ViewRegistration

Examples

v1 <- round(rnorm(12), digits = 2)
v2 <- sample(1:10, 12, replace = TRUE)
good_res <- crossprod(matrix(c(v1, 0, 0, 0, 1), 4, 4, byrow = TRUE),
  matrix(c(v2, 0, 0, 0, 1), 4, 4, byrow = TRUE))
x <- tibble::tibble(
  regis_name = c(1,1),
  Timepoint = c(1,1),
  Setup = c(1,1),
  vector_Affine = list(v1 = v1, v2 = v2))
identical(good_res, prod_affine_registration(x)$prod_affine[[1]])
#> [1] TRUE
# Both should be equal but solve uses approximations
identical(solve(good_res), prod_affine_registration(x)$prod_affine_inv[[1]])
#> [1] TRUE