# 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