## Not run:
# if (!exists("fn") ) fn<-getANTsRData("pcasl")
# # high motion subject
# asl<-antsImageRead(fn,4)
# tr<-antsGetSpacing(asl)[4]
# aslmean<-getAverageOfTimeSeries( asl )
# aslmask<-getMask(aslmean,lowThresh=mean(aslmean),cleanup=TRUE)
# omat<-timeseries2matrix(asl, aslmask )
# clustasl<-clusterTimeSeries( omat, krange=4:10 )
# for ( ct in 1:max(clustasl$clusters) )
# {
# sel<-clustasl$clusters != ct
# img<-matrix2timeseries( asl, aslmask, omat[sel,] )
# perf <- aslPerfusion( img,
# dorobust=0.9, useDenoiser=4, skip=10, useBayesian=0,
# moreaccurate=0, verbose=F, mask=aslmask )
# perfp <- list( sequence="pcasl", m0=perf$m0 )
# cbf <- quantifyCBF( perf$perfusion, perf$mask, perfp )
# }
# ## End(Not run)
Run the code above in your browser using DataLab