#' fsl2antsrTransform
#'
#' Convert an FSL linear transform to an antsrTransform
#'
#' @param reference, target image read in as antsImage
#' @param moving image, read in as antsImage
#' @param matrix 4x4 matrix of parameters
#' @author JT Duda
#' @examples
#' fslMat = matrix(0,4,4)
#' diag(fslMat) = rep(1,4)
#' fslMat[1:3,4] = c(2,3,4)
#' img = antsImageRead(getANTsRData("ch2"))
#' tx = fsl2antsrTransform(fslMat, img, img)
#'
#' @export fsl2antsrTransform
fsl2antsrTransform <- function( matrix, reference, moving ) {
retval = .Call("fsl2antsrTransform", matrix, reference, moving, 1, PACKAGE="ANTsR")
return( retval )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.