# loading of toy-patient objects (decrease dxyz and increase beam.nb for
# better result)
step <- 5
pat<- toy.load.patient (modality = c ( "rtdose"), dxyz = rep (step, 3),
beam.nb = 3)
# Double dose
D <- vol.sum (pat$rtdose[[1]], pat$rtdose[[1]])
pat$rtdose[[1]]$max.pixel
D$max.pixel
Run the code above in your browser using DataLab