# NOT RUN {
set.seed( 123 )
boldImages <- list()
n=16
nvox <- n*n*n*12
dims <- c(n,n,n,12)
boldImages[[1]] <- makeImage( dims , rnorm( nvox )+500 )
boldImages[[2]] <- makeImage( dims , rnorm( nvox )+500 )
boldImages[[3]] <- makeImage( dims , rnorm( nvox )+500 )
cleanBoldImages <- list()
for( i in 1:length( boldImages ) )
  {
  fmri <- preprocessfMRI( boldImages[[i]], residualizeMatrix=FALSE )
  if( i == 1 ) maskImage <- fmri$maskImage
  cleanBoldImages[[i]] <- fmri$cleanBoldImage
  }
icaResults <- antsSpatialICAfMRI( cleanBoldImages, maskImage,
  numberOfICAComponents = 2 )
# }
Run the code above in your browser using DataLab