bvec <- BrainVector(array(rnorm(24*24*24*24), c(24,24,24,24)), BrainSpace(c(24,24,24,24), c(1,1,1)))
vol <- takeVolume(bvec,1)
all.equal(dim(vol), c(24,24,24))
vol <- takeVolume(bvec,1:3)
length(vol) == 3
class(vol) == "list"
Run the code above in your browser using DataLab