# loading of toy-patient objects (decrease dxyz for better result)
step <- 6
pat <- toy.load.patient (modality = c("ct", "rtdose", "rtstruct"),
roi.name = c("eye"), dxyz = rep (step, 3),
beam.nb = 3)
display.obj.links(pat)
pat$rtstruct[[1]] <- set.reference.obj(pat$rtstruct[[1]],pat$ct[[1]])
display.obj.links(pat)
Run the code above in your browser using DataLab