# NOT RUN {
nvox <- 5 * 5 * 5 * 10
dims <- c(5, 5, 5, 10)
voxvals <- array(rnorm(nvox) + 500, dim=dims)
voxvals[, , , 5] <- voxvals[, , , 5] + 600
asl <- makeImage(dims, voxvals)
censored <- aslCensoring(asl)
# }
Run the code above in your browser using DataLab