getMNITemplatePath.R

getMNITemplatePath <- function(what=c("full", "brain", "brain_mask"), res=c("1mm", "2mm")){
	require(fslr)
	dir <- file.path(fsl_data_dir(), "standard")
	what <- match.arg(what)
	res  <- match.arg(res)
    if (what == "full") {
        file <- file.path(dir, paste0("MNI152_T1_",res,".nii.gz"))
    }
    else if (what == "brain") {
        file <- file.path(dir, paste0("MNI152_T1_",res,"_brain.nii.gz"))
    }
    else if (what == "brain_mask") {
        file <- file.path(dir, paste0("MNI152_T1_",res,"_brain_mask.nii.gz"))
    }
    file
}