grayToDensity: Convert from 8bit gray scale to density

In CTRing: Density Profiles of Wood from CT Scan Images

Convert from 8bit gray scale to density

Description

Convert from 8bit gray scale to density

Usage

grayToDensity(im, a = -0.1321, b = 0.01834)

Arguments

im	Matrix of CT scan image in 8bit gray scale
a	Intercept of the calibration curve
b	Slope of the calibration curve

Value

Matrix of density values

Examples

library(oro.dicom)
file_path <- system.file("extdata", "disk.dcm", package = "CTRing")
dcm <-  readDICOM(file_path)
hdr_df <- dcm$hdr[[1]]
image_info <- getImageInfo(hdr = hdr_df)

im <- imageToMatrix(dcm$img)
im_8bit <- xBitTo8Bit(im, image_info$grayScale)
range(im_8bit)

im_dens <- grayToDensity(im_8bit)
range(im_dens)

CTRing documentation built on Sept. 11, 2024, 6:45 p.m.