R/measureProfiles.R

In xRing: Identify and Measure Tree Rings on X-Ray Micro-Density Profiles

#' @import imager
#' @title Measure Profiles Interactively
#' @description Several profiles can be selected in an image and a calibration for that image is used to convert pixels into wood density
#' @param im an image
#' @param nPixel the line width
#' @param cal calibration
#' @return an xRingList object with all xRing objects
#' @export
#' @examples
#' if (interactive()) {
#'   # read a sample file
#'   im <- imRead(file = system.file("img", "AFO1046.1200dpi.png", package = "xRing"))
#'
#'   # to display the image
#'   imDisplay(im)
#'
#'   cal1 <- calibrateFilm(im, thickness = stepIncrease(0.24, 7), density = 1.2922, plot = TRUE)
#'   profiles <- measureProfiles(im, cal = cal1)
#' }
#'
measureProfiles <- function(im, nPixel = 50, cal = NULL) {
  selectProfiles(im, nPixel, cal)
}