extract_feature_cms2_per_mm: Extract scaled number of consecutively matching elevated...

In heike/bulletxtrctr: Automatic Matching of Bullet Striae

Extract scaled number of consecutively matching elevated striation marks from two aligned signatures

Description

Extract scaled number of consecutively matching elevated striation marks from two aligned signatures

Usage

extract_feature_cms2_per_mm(striae, aligned, resolution)

Arguments

striae	data frame of striation marks based on two aligned signatures
aligned	two aligned signatures
resolution	micron per pixel resolution

Value

scaled number of consecutively matching elevated striation marks per millimeter

See Also

Other striae-related-features: extract_feature_cms2(), extract_feature_cms(), extract_feature_left_cms(), extract_feature_matches_per_mm(), extract_feature_matches(), extract_feature_mismatches_per_mm(), extract_feature_mismatches(), extract_feature_non_cms_per_mm(), extract_feature_non_cms(), extract_feature_right_cms(), extract_feature_sum_peaks(), extract_features_all(), extract_helper_feature_n_striae()

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_feature_cms2_per_mm(striae$lines)

## End(Not run)

heike/bulletxtrctr documentation built on March 8, 2024, 7:41 p.m.