# loading of toy-patient objects (decrease dxyz for better result)
step <- 4
patient <- toy.load.patient (modality = c("ct", "rtstruct"), roi.name = "eye",
dxyz = rep (step, 3))
CT <- patient$ct[[1]]
S <- patient$rtstruct[[1]]
z.leye<- S$roi.info$Gz[S$roi.info$roi.pseudo == "lefteye"]
# 'left eye' et 'right eye' binaries
bin.left.eye <- bin.from.roi (CT, struct = S, roi.sname = "lefteye",
alias = "left eye", verbose = FALSE)
bin.right.eye <- bin.from.roi (CT, struct = S, roi.name = "righteye",
alias = "right eye", verbose = FALSE)
bin.eyes <- bin.sum (bin.left.eye, bin.right.eye, alias = "eyes")
display.plane (CT, top = bin.eyes, struct = S, roi.sname = "eye",
view.coord = z.leye, legend.shift = -90 ,
interpolate = FALSE)
Run the code above in your browser using DataLab