url <- "http://nifti.nimh.nih.gov/nifti-1/data/filtered_func_data.nii.gz"
urlfile <- file.path(system.file("nifti", package="oro.nifti"),
"ffd.nii.gz")
download.file(url, urlfile, quiet=TRUE)
urlfile <- file.path(system.file("nifti", package="oro.nifti"),
"ffd.nii.gz")
ffd <- readNIfTI(urlfile)
image(ffd, oma=rep(2,4))
orthographic(ffd, oma=rep(2,4))
Run the code above in your browser using DataLab