## Not run:
# ## Example using the PDD files in gdimap
# ## normalize vector data generated by vMF functions
# ## before visualization with FSL/fslview
# fi1 <- "data_V1.nii.gz"
# p <- system.file(file.path("extdata", fi1), package = "gdimap")
# p1 <- strsplit(p,fi1)[[1]][1]
# niinorm(srcdir=p1, filename=fi1, savedir=tempdir())
# fi2 <- "data_V2.nii.gz"
# niinorm(srcdir=p1, filename=fi2, savedir=tempdir())
# ## try fslview if installed
# fo1 <- file.path(tempdir(),"data_V1n.nii.gz")
# fo2 <- file.path(tempdir(),"data_V2n.nii.gz")
# fo3 <- file.path(p1, "data_gfa.nii.gz")
# if(Sys.which("fslview") != "") system(paste("fslview", fo3, fo2, fo1, "&"))
# ## End(Not run)
Run the code above in your browser using DataLab