## Not run:
# url <- "http://nifti.nimh.nih.gov/nifti-1/data/avg152T1_RL_nifti.nii.gz"
# urlfile <- file.path(system.file("nifti", package="oro.nifti"),
# "mniRL.nii.gz")
# download.file(url, urlfile, quiet=TRUE)
# ## End(Not run)
options("niftiAuditTrail"=FALSE)
urlfile <- file.path(system.file("nifti", package="oro.nifti"),
"mniRL.nii.gz")
mniRL <- readNIfTI(urlfile)
aux.file(mniRL)
aux.file(mniRL) <- "avg152T1_RL_nifti"
aux.file(mniRL)
Run the code above in your browser using DataLab