# NOT RUN {
### Not run:
# }
# NOT RUN {
data(core_426)
ct.slope <- unique(extractHeader(core_426$hdr, "RescaleSlope"))
ct.int <- unique(extractHeader(core_426$hdr, "RescaleIntercept"))
# convert raw units to Hounsfield units
HU_426 <- lapply(core_426$img, function(x) x*ct.slope + ct.int)
materials <- conv(HU_426)
head(materials[, 1:6], 20)
materials2 <- getSurface(materials)
head(materials2[, 1:6])
# }
Run the code above in your browser using DataLab