get_seg_scale {cmpsR}

Change the sacle of a segment

Description

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.

Usage

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)