## Not run:
# url <- "http://nifti.nimh.nih.gov/nifti-1/data/filtered_func_data.nii.gz"
# urlfile <- tempfile(pattern="filtered_func_data", fileext=".nii.gz")
# download.file(url, urlfile, quiet=TRUE)
# data<-readNii(urlfile)
# viewR(data)
# ## Try coordinate 47,25,10
# ## End(Not run)
Run the code above in your browser using DataLab