# loading of toy-patient objects (decrease dxyz for better result)
patient <- toy.load.patient (modality = c ("ct", "rtstruct"),
roi.name = "brain", dxyz = c (4, 4, 4))
CT <- patient$ct[[1]]
S <- patient$rtstruct[[1]]
# select the brain in the volume
bin.brain <- bin.from.roi (vol = CT, struct = S, roi.name = "brain",
verbose = FALSE)
vol.brain <- vol.from.bin (CT, bin.brain)
# display at the center of gravity of the brain Gz
Gz <- S$roi.info [grep("^brain", S$roi.info$roi.pseudo),]$Gz
display.plane (bottom = vol.brain, view.coord = Gz, struct = S,
roi.sname = "brain", bg = "#00ff00", interpolate = FALSE)
Run the code above in your browser using DataLab