Extract features from aligned signatures

Extract features from aligned signatures

Usage

extract_features_all(aligned, striae, resolution, tmpfile = NULL, ...)

Arguments

aligned

aligned signatures, result from sig_cms_max

striae

data frame with evaluated matching striae

resolution

micron per pixel resolution of scans

tmpfile

character consisting of the path to a temporary file. If not NULL, one line is appended to the file each time the function is executed.

...

passed on to extractor functions

See also

Other alignment-related-features: extract_feature_D(), extract_feature_ccf(), extract_feature_lag(), extract_feature_lag_mm(), extract_feature_length(), extract_feature_length_mm(), extract_feature_overlap()

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_right_cms(), extract_feature_sum_peaks(), extract_helper_feature_n_striae()

Examples

if (FALSE) { # \dontrun{
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_features_all(alignment, striae)
} # }