# loading of toy-patient objects
patient <- toy.load.patient (modality = "mr", roi.name = "", dxyz = c (4, 4, 4))
MR <- patient$mr[[1]]
MR$xyz.from.ijk
# creation of t.mat, containing the transfer matrix to the frame of reference
# of the MR cutting planes
t.mat <- ref.cutplane.add (MR)
# Change of frame of reference
MR.m <- vol.in.new.ref (MR, paste0 (MR$ref.pseudo, "m"), t.mat)
MR.m$xyz.from.ijk
Run the code above in your browser using DataLab