internal function, called by multiple extract_feature functions

extract_helper_feature_n_striae(striae, type = "peak", match = TRUE)

Arguments

striae

data frame of striation marks based on two aligned signatures

type

one of "peak", "valley" or "all"

match

binary setting: TRUE for matching striae, FALSE for non-matching striae

Value

number of striae

See also

Examples

# NOT RUN {
# Set the data up to be read in, cleaned, etc.
library(bulletxtrctr)
library(x3ptools)

example_data <- bullet_pipeline(
  location = list(
    Bullet1 = c(hamby252demo$bullet1[2]),
    Bullet2 = c(hamby252demo$bullet2[4])
  ),
  x3p_clean = function(x) x %>%
      x3p_scale_unit(scale_by=10^6) %>%
      rotate_x3p(angle = -90) %>%
      y_flip_x3p()
)

alignment <- sig_align(example_data$sigs[[1]]$sig,
                       example_data$sigs[[2]]$sig)
striae <- sig_cms_max(alignment)
extract_helper_feature_n_striae(striae$lines, type = "all", match = T)
# }