bvec <- BrainVector(array(0, c(10,10,10,10)), BrainSpace(c(10,10,10,10), c(1,1,1)))
## Not run:
# writeVector(bvol, "out.nii")
# writeVector(bvol, "out.nii.gz")
# writeVector(bvec, "out.nii")
# writeVector(bvec, "out.nii.gz")
# ## End(Not run)
Run the code above in your browser using DataLab