An R function to fill hypointense lesions in T1-weighted images with median intensity of white matter