# loading of toy-patient objects
step <- 4
patient <- toy.load.patient (modality = c ("rtstruct"),
dxyz = rep (step, 3))
S <- patient$rtstruct[[1]]
# Volume extraction
vol <- get.volume.from.roi (S, roi.sname = "bra", roi.idx = c (1, 3))
names (vol)
vol
Run the code above in your browser using DataLab