# none yet - this is not very well tested with recent ANTsR
## Not run:
# myimg <- antsImageRead(getANTsRData( "ch2" ), 3)
# mylab <- antsImageRead(getANTsRData( "ch2a" ), 3)
# boldfn <- getANTsRData( "pcasl" )
# bold <- antsImageRead( boldfn , 4 )
# avgbold <- getAverageOfTimeSeries( bold )
# breg <- antsRegistration( avgbold, myimg, typeofTransform = c("AffineFast") )
# warpedParcellation <- antsApplyTransforms( avgbold, mylab,
# transformlist=breg$fwdtransforms, interpolator="NearestNeighbor" )
# mask <- getMask( avgbold )
# result <- antsBOLDNetworkAnalysis( bold=bold, mask=mask, warpedParcellation )
# ## End(Not run)
Run the code above in your browser using DataLab