Nothing
target_frequency <- 100
original_samples <- c(
1.54, 2.02, 2.38, 1.9, 2.38, 1.9,
2.38, 1.78, 1.78, 1.66, 2.26, 1.42,
1.78, 2.26, 2.26, 2.14, 1.66, 2.02,
2.26, 1.9, 1.66, 1.78, 2.02, 2.02,
2.14, 2.02, 1.66, 1.9, 2.02, 1.3,
2.26, 1.42, 2.38, 2.02, 2.38, 1.42,
1.9, 1.78, 2.26, 2.02, 1.42, 2.38,
1.78, 1.78, 1.9, 1.54, 1.66, 1.54,
2.14, 2.02, 1.54, 1.42, 2.38, 1.3,
2.26, 1.42, 1.66, 2.14, 1.3, 1.9,
1.3, 2.02, 1.66, 1.78, 2.02, 1.42,
2.14, 2.26, 2.02, 1.78, 1.66, 2.14,
2.02, 2.02, 1.66, 2.14, 2.38, 2.02,
1.9, 2.02, 1.66, 1.42, 2.02, 1.78,
1.9, 2.26, 1.78, 1.42, 1.3, 1.54,
1.3, 1.42, 1.42, 2.26, 2.14, 2.38,
2.14, 1.3, 1.78, 2.14, 1.3
)
down_R <- sensor_resample(
original_samples, target_frequency
)
down_C <- sensor_resample(
original_samples, target_frequency,
"linear_C"
)
testthat::expect_equal(down_R, down_C)
up_R <- sensor_resample(
original_samples[1:99], target_frequency
)
up_C <- sensor_resample(
original_samples[1:99], target_frequency,
"linear_C"
)
testthat::expect_equal(up_R, up_C)
up_IMU <- sensor_resample(
original_samples, target_frequency,
"IMU"
)
down_IMU <- sensor_resample(
original_samples[1:99], target_frequency,
"IMU"
)
results <- data.frame(
up_R, up_C, up_IMU,
down_R, down_C, down_IMU
)
test_that("Interpolation give expected values", {
save_interpolate <- function(code) {
path <- tempfile(fileext = ".rds")
saveRDS(code, path)
path
}
testthat::expect_snapshot_file(
save_interpolate(results),
"interpolate_cache.rds"
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.