# NOT RUN {
fi<-antsImageRead( getANTsRData("r16") , 2 )
mi<-antsImageRead( getANTsRData("r62") , 2 )
bi<-iBind( fi, mi , 1 )
multismoo<- fi %>% iBind( smoothImage(fi,2) ) %>% iBind( smoothImage(fi,4) )
# }
Run the code above in your browser using DataLab