extract_feature_matches_per_mm: Extract scaled number of matching striation marks from two...

In heike/bulletxtrctr: Automatic Matching of Bullet Striae

Extract scaled number of matching striation marks from two aligned signatures

Description

Extract scaled number of matching striation marks from two aligned signatures

Usage

extract_feature_matches_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 matching striation marks per mm

See Also

Other striae-related-features: extract_feature_cms(), extract_feature_cms2(), extract_feature_cms2_per_mm(), extract_feature_left_cms(), extract_feature_matches(), extract_feature_mismatches(), extract_feature_mismatches_per_mm(), extract_feature_non_cms(), extract_feature_non_cms_per_mm(), 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_matches(striae$lines)
extract_feature_mismatches(striae$lines)

## End(Not run)

heike/bulletxtrctr documentation built on Feb. 15, 2025, 6:33 p.m.