Functions to explore an acc vector
Examples
x <- acc(
bursts = list(
cbind(x = sin(1:30 / 10), y = cos(1:30 / 10), z = 1),
cbind(x = sin(1:20 / 10 + 2), y = cos(1:20 / 10 + 3))
),
frequency = units::as_units(c(20, 30), "Hz")
)
x <- c(x, NA)
n_axis(x)
#> [1] 3 2 NA
n_samples(x)
#> [1] 30 20 NA
is_uniform(x)
#> [1] FALSE
length(x)
#> [1] 3
is.na(x)
#> [1] FALSE FALSE TRUE
na.omit(x)
#> <acceleration[2]>
#> [1] (0.67 0.01 1) (0.08 -0.52)
#> # frequency: 20 [Hz] - 30 [Hz]
y <- acc(
bursts = list(
cbind(x = sin(1:20 / 10), y = cos(1:20 / 10)),
cbind(x = sin(1:20 / 10 + 2), y = cos(1:20 / 10 + 3))
),
frequency = units::as_units(c(20, 20), "Hz")
)
is_uniform(y)
#> [1] TRUE