# NOT RUN {
mask <- getMask(antsImageRead(getANTsRData('mni')))
myresels <- resels(mask, c(1, 1, 1))
# pretend these results are from a t-statistical field fitted with 10 df to
# find a peak value.
df <- c(1, 10) # made up degrees of freedom
ec <- euler(4, df, fieldType = "T") # peak value is 4
ez <- euler(3, df, fieldType = "T") # we thresholded at 3
# uncorrected peak-level p-value
pvox <- sum(ec * myresels)/sum(ez * myresels)
# }
Run the code above in your browser using DataLab