R/antsImageWrite.R

In stnava/itkImageR: Examples using Rcpp to interface R and ITK

antsImageWrite <- function(image, filename) {
  if (class(image) != "antsImage") {
    print("'image' argument provided is not of class 'antsImage'")
    return(NULL)
  }
  return(.Call("antsImageWrite", image, filename, PACKAGE = "itkImageR"))
}