powered by
computeTransform(x, y, type = c("affine", "rigid", "similarity"), reflection = FALSE)
data(boneData) trafo <- computeTransform(boneLM[,,1],boneLM[,,2]) transLM <- applyTransform(boneLM[,,2],trafo)
Run the code above in your browser using DataLab