# loading of toy-patient objects (decrease dxyz for better result)
step <- 4
patient <- toy.load.patient (modality = "mr", roi.name = "",
dxyz = rep (step, 3))
MR <- patient$mr[[1]]
# generation of a binary volume
b <- bin.from.vol(MR, min = 15,max = 30)
b.dilation <- bin.dilation (b, radius = step)
display.plane (bottom = MR, top = b, main = "Before dilation",
view.coord = -20, interpolate = FALSE)
display.plane (bottom = MR, top = b.dilation, main = "After dilation",
view.coord = -20,interpolate = FALSE)
Run the code above in your browser using DataLab