Extract number of mismatched striation marks from two aligned signatures

Extract number of mismatched striation marks from two aligned signatures

Usage

extract_feature_mismatches_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

number of mismatched striation marks

See also

Other striae-related-features: extract_feature_cms2_per_mm(), extract_feature_cms2(), extract_feature_cms(), extract_feature_left_cms(), extract_feature_matches_per_mm(), extract_feature_matches(), 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

if (FALSE) {
# 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)
}