sig_get_peaks | R Documentation |
Adapted from the function get_peaks
sig_get_peaks(
sig,
smoothfactor = 35,
striae = TRUE,
window = TRUE,
plot = TRUE
)
sig |
numeric vector of smoothed signature, padded with NAs at front and/or back. |
smoothfactor |
set to default of 35. Smaller values will pick up on smaller changes in the crosscut. |
striae |
If TRUE, show the detected striae on the plot |
window |
If TRUE, show the window of the striae on the plot |
plot |
If TRUE, show a plot |
list of several objects:
## Not run:
# Set the data up to be read in, cleaned, etc.
library(bulletxtrctr)
library(x3ptools)
library(ggplot2)
example_data <- bullet_pipeline(
location = list(Bullet1 = c(hamby252demo$bullet1[3])),
x3p_clean = function(x) x %>%
x3p_scale_unit(scale_by=10^6) %>%
rotate_x3p(angle = -90) %>%
y_flip_x3p()
)
sig <- cc_get_signature(example_data$ccdata[[1]], example_data$grooves[[1]])
sig_peaks <- sig_get_peaks(sig$sig)
sig_peaks[1:6]
# Plot
sig_peaks$plot
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.