Change the sacle of a segment — get_seg

In order to identify the congruent registration position of a basis segment, the length of the basis segment will be doubled to compute the correlation curve. get_seg_scale computes the increased segment, which has the same center as the basis segment.

get_seg_scale(segments, nseg, out_length)

Arguments

segments: list with basis segments and their corresponding indices in the original profile, obtianed by get_segs()
nseg: integer. nseg = 3: increase the length of the third basis segment.
out_length: integer. The length of the enlarged segment

Value

list consisting of

aug_seg: the increased segment
aug_idx: the corresponding indices in the profile

Examples

data("bullets")
land2_3 <- bullets$sigs[bullets$bulletland == "2-3"][[1]]
x <- land2_3$sig

segments <- get_segs(x, len = 50)
seg5_scale3 <- get_seg_scale(segments, nseg = 5, out_length = 50)