# loading of toy-patient objects (decrease dxyz and increase beam.nb for
# better result)
step <- 3
pat <- toy.load.patient (modality = c ("ct"), dxyz = rep (step, 3))
CT.median <- vol.median (pat$ct[[1]])
display.plane (CT.median, view.type = "sagi", view.coord = 61,
interpolate = FALSE)
Run the code above in your browser using DataLab