## 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, "&"))Run the code above in your browser using DataLab