# NOT RUN {
perfusionImage <- antsImageRead( filename = perfusionFileName, dimension = 4, pixeltype = 'float' )
voiMaskImage <- antsImageRead( filename = voiMaskFileName, dimension = 3, pixeltype = 'unsigned int' )
aifMaskImage <- antsImageRead( filename = aifMaskFileName, dimension = 3, pixeltype = 'unsigned int' )
deltaTime <- 3.4
results <- bloodPerfusionSVD( perfusionImage, voiMaskImage, aifMaskImage,
thresholdSVD = 0.2, deltaTime = deltaTime )
antsImageWrite( results$cbfImage, paste0( 'cbf.nii.gz' ) );
antsImageWrite( results$cbvImage, paste0( 'cpbv.nii.gz' ) );
antsImageWrite( results$mttImage, paste0( 'mtt.nii.gz' ) );
# }
Run the code above in your browser using DataLab