# loading of toy-patient objects (decrease dxyz for better result)
step <- 3
patient <- toy.load.patient (modality = "ct", dxyz = rep (step, 3))
CT <- patient$ct[[1]]
# histogram and display
H <- histo.vol (CT, breaks = seq (3, ceiling (CT$max.pixel), 1),
alias = "CT_hist")
display.histo (H, log = "y", lwd = 2)
Run the code above in your browser using DataLab