# loading of toy-patient objects (decrease dxyz and increase beam.nb for
# better result)
step <- 5
patient <- toy.load.patient (modality = c("rtdose", "rtstruct"),
roi.name = "gizzard", dxyz = rep (step, 3),
beam.nb = 3)
# Calculation of the histogram
H <- histo.from.roi (patient$rtdose[[1]], patient$rtstruct[[1]],
roi.name = "gizzard",
breaks = seq (0, 60, by = 1))
# DVH
DVH <- histo.DVH (H)
display.DVH.pc (DVH)
Run the code above in your browser using DataLab