extract_feature_cms: Extract number of consecutively matching striation marks...

View source: R/features.R

extract_feature_cmsR Documentation

Extract number of consecutively matching striation marks (peaks and valleys) from two aligned signatures

Description

Extract number of consecutively matching striation marks (peaks and valleys) from two aligned signatures

Usage

extract_feature_cms(striae)

Arguments

striae

data frame of striation marks based on two aligned signatures

Value

number of consecutively matching striation marks (peaks and valleys)

See Also

Other striae-related-features: 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_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_cms(striae$lines)

## End(Not run)

heike/bulletxtrctr documentation built on June 3, 2024, 12:08 a.m.