addYears: Add years to series

In CTRing: Density Profiles of Wood from CT Scan Images

Add years to series

Description

Add years to series

Usage

addYears(lastYear, densProfile)

Arguments

lastYear	Last year of series
densProfile	Density profile

Value

Density profile with years

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)
im_dens <- grayToDensity(im_8bit)

pith_coord <- detect_pith(im_dens, n_segments = 12, pixel = TRUE, toPlot = FALSE)

endPath <- c(472, 284) # manual
# not run - endPath <- locatePathEnd(im_dens, pith_coord) # using the image

path <- extractProfile(im_dens, image_info, pith_coord, endPath, k = 2, r = 5, threshold = 0.002)

path <- addYears(2021, path)

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