prod_affine_registration: Product of affine transformations

In marionlouveaux/mamut2r: Import of MaMuT xml files into R

Description

Product of affine transformations

Usage

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]])
# Both should be equal but solve uses approximations
identical(solve(good_res), prod_affine_registration(x)$prod_affine_inv[[1]])

marionlouveaux/mamut2r documentation built on May 20, 2019, 9:55 a.m.