# 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.closing <- bin.closing (b, radius = step)
display.plane (bottom = MR, top = b, main = "Before closing",
view.coord = -20, interpolate = FALSE)
display.plane (bottom = MR, top = b.closing, main = "After closing",
view.coord = -20, interpolate = FALSE)
Run the code above in your browser using DataLab