# NOT RUN {
fn<-getANTsRData("r16")
img<-antsImageRead(fn)
img<-resampleImage(img,c(128,128),1,0)
tf<-getANTsRData("r64")
tem<-antsImageRead(tf)
tem<-resampleImage(tem,c(128,128),1,0)
temmask<-antsImageClone( tem )
temmask[ tem > 20 ]<-1
temmask[ tem <= 20 ]<-0
bm<-abpBrainExtraction(img=img,tem=tem,temmask=temmask)
# }
Run the code above in your browser using DataLab