vol.abserror | R Documentation |
The function vol.abserror
provides the absolute error volume between 2 volumes.
vol.abserror(vol, vol.ref, T.MAT = NULL, alias = "", description = NULL)
vol , vol.ref |
"volume" class objects. |
T.MAT |
"t.mat" class object to link the reference frames of |
alias |
Character string, |
description |
Character string, describing the created object. If
|
Returns a "volume" class object (see espadon.class
for class definitions), with the same grid as vol.ref
, and representing
the absolute error between vol
and vol.ref
.
vol.error
# loading of toy-patient objects (decrease dxyz)
step <- 5
patient <- toy.load.patient (modality = c("ct", "sct","rtstruct"),
roi.name = c("eye", "brain","gizzard"),
dxyz = rep (step, 3))
patient$ct[[1]]$description
patient$ct[[2]]$description
# Creation of the absolute error volume between ct and synthetic ct
vAE <- vol.abserror (patient$ct[[2]], patient$ct[[1]], T.MAT = patient$T.MAT)
# Display
palette_vAE <- colorRampPalette(c("#00005F", "#0000FF", "#00FFFF", "#00FF00",
"#FFFF00", "#FF7F00", "#FF0000", "#7F0000",
"#5F0000")) (100)
breaks_vAE <- seq(floor (vAE$min.pixel), ceiling (vAE$max.pixel),
length.out = 101)
layout (mat = matrix(c(rep(1,6),2,2), ncol=4))
plot (vAE, view.coord =61, view.type = "trans",
col = palette_vAE, breaks = breaks_vAE)
display.palette(palette_vAE, breaks = breaks_vAE,
cex.axis = 1.2, main = vAE$unit)
par(mfrow=c(1,1))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.