sp1 <- NeuroSpace(c(10,10,10), c(1,2,3))
# create an ROI centered around the integer-valued positive voxel coordinate: i=5, j=5, k=5
cube <- spherical_roi(sp1, c(5,5,5), 3.5)
vox <- coords(cube)
cds <- coords(cube, real=TRUE)
## fill in ROI with value of 6
cube1 <- spherical_roi(sp1, c(5,5,5), 3.5, fill=6)
all(cube1 == 6)
# create an ROI centered around the real-valued coordinates: x=5, y=5, z=5
vox <- coord_to_grid(sp1, c(5, 5, 5))
cube <- spherical_roi(sp1, vox, 3.5)
Run the code above in your browser using DataLab