brain_mask <- read_vol(system.file("extdata", "global_mask_v4.nii", package="neuroim2"))
# Apply bilateral filtering to the brain volume
filtered_vol <- bilateral_filter(brain_mask, brain_mask, spatial_sigma = 2,
intensity_sigma = 25, window = 1)
Run the code above in your browser using DataLab