Description Usage Arguments Value Examples
Generates a vector of "section" values/levels according to differences in
the supplied vector. The function simply rolls over x
, incrementing
the return vector every time there is a significant break (stop
argument) in the pattern of differences between adjacent elements of
x
. In practical terms, if x
is a series of timestamp values
(see example), every time there is a significant break in the timer (e.g.
>10 sec), the return vector is incremented by 1.
1 | diff_section(x, br)
|
x |
a numeric vector (e.g. a timer column) that increments uniformly. When there is a significant break in this uniformity, a new section is created, and so forth. |
br |
criterion for a significant break in terms of |
a vector of the same length as x
.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | t_sec <- c(1:10, 40:60, 100:150) # Discontinuous timer values.
pwr <- runif(length(t_sec), 0, 400) # Some power values.
x <- data.frame(t_sec, pwr)
## Generate section levels.
x$section <- diff_section(x$t_sec, br = 10) # 10 second breaks.
print(x)
split(x, x$section)
## Using "intervaldata", which has a large stop.
data(intervaldata)
intervaldata$section <- diff_section(intervaldata$timer.s, br = 20)
sp <- split(intervaldata, intervaldata$section)
## Plot.
eplot <- function(x) cycleRtools:::elev_plot(x, "timer.min")
layout(matrix(c(1, 2, 1, 3), 2, 2))
eplot(cycleRtools:::expand_stops(intervaldata))
eplot(sp[[1]])
eplot(sp[[2]])
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.