if(interactive() && ants_available()) {
mat <- matrix(c(
0, -1, 0, 128,
1, 0, 0, -128,
0, 0, -1, 128,
0, 0, 0, 1
), ncol = 4, byrow = TRUE)
trans <- as_ANTsTransform(mat)
trans
# apply transform
trans$apply_to_point(c(120, 400, 1))
# same results
mat %*% c(120, 400, 1, 1)
trans[] == mat
}
Run the code above in your browser using DataLab