## 27 scans of Colin Holmes (MNI) brain co-registered and averaged
URL <- "http://imaging.mrc-cbu.cam.ac.uk/downloads/Colin/colin_1mm.tgz"
urlpath <- system.file("anlz", package="oro.nifti")
urlfile <- file.path(urlpath, "colin_1mm.tgz")
download.file(URL, dest=urlfile, quiet=TRUE)
untar(urlfile, exdir=urlpath)
urlpath <- system.file("anlz", package="oro.nifti")
colin <- readANALYZE(file.path(urlpath, "colin_1mm"))
image(colin, oma=rep(2,4))
orthographic(colin, oma=rep(2,4))
Run the code above in your browser using DataLab