# loading of toy-patient objects (decrease dxyz for better result)
step <- 4
patient <- toy.load.patient (modality = c("ct", "rtstruct"), roi.name = "",
dxyz = rep (step, 3))
CT <- patient$ct[[1]]
S <- patient$rtstruct[[1]]
bin.patient <- bin.from.roi (CT, struct = S, roi.name = c ("patient"),
alias = "patient", verbose = FALSE)
inverse.patient <- bin.inversion (bin.patient, alias = "inv (patient)")
display.plane(CT, top = inverse.patient, interpolate = FALSE)
Run the code above in your browser using DataLab