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

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

Usage

extract_feature_right_cms(striae)

Arguments

striae

data frame of striation marks based on two aligned signatures

Value

number of consecutively matching striation marks (from right)

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_matches_per_mm(), extract_feature_mismatches(), extract_feature_mismatches_per_mm(), extract_feature_non_cms(), extract_feature_non_cms_per_mm(), extract_feature_sum_peaks(), extract_features_all(), extract_helper_feature_n_striae()

Examples

if (FALSE) { # \dontrun{
# 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_right_cms(striae$lines)
} # }