# NOT RUN {
# make some simulated images and convert them to a matrix
n <- 8
tdir<-tempdir()
for ( i in 1:n ) {
simimg<-as.antsImage( replicate(64, rnorm(64) ) )
antsImageWrite( simimg, paste(tdir,"/image",i,".mha",sep=''))
}
imageList = list.files(tdir, pattern = "\.mha", full.names = TRUE)
mask = getMask( antsImageRead( imageList[1] , 2 ) )
mat = imagesToMatrix(imageList, mask)
print(dim(mat))
# }
Run the code above in your browser using DataLab