# DVH without MCMC
# 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 = "",
dxyz = rep (step, 3), beam.nb = 3)
H <- histo.from.roi (patient$rtdose[[1]], patient$rtstruct[[1]], roi.name = "ptv",
breaks = seq (0, 60, by = 2))
DVH <- histo.DVH (H)
display.DVH (DVH)
if (FALSE) {
# loading of toy-patient objects
patient <- toy.load.patient (modality = c("rtdose", "rtstruct"),
roi.name = "gizzard",
dxyz = c (2, 2, 2), 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), MC = 100)
# DVH
DVH <- histo.DVH (H)
display.DVH (DVH, MC.plot = TRUE, ylim = c (0, 40))
}
Run the code above in your browser using DataLab