Nothing
# Setup -------------------------------------------------------------------
## Store the file names ####
file_3x <- system.file(
"extdata", "example.gt3x", package = "AGread"
)
file_RAW <- system.file(
"extdata","exampleRAW.csv", package = "AGread"
)
file_IMU <- system.file(
"extdata", "example-IMU.csv", package = "AGread"
)
## Call the file reading methods ####
reference_3x <- read_gt3x(file_3x)
test1 <- read_AG_raw(
file_RAW, return_raw = TRUE
)[ ,-c(1:2)]
test2 <- suppressMessages(read_AG_raw(
file_RAW
)[ ,-c(1:2)])
test3 <- suppressMessages(read_AG_raw(
file_RAW,output_window_secs = 5
)[ ,-c(1:2)])
test4 <- suppressMessages(read_AG_IMU(
file_IMU, filter = FALSE,
return_raw = TRUE
)[ ,-c(1:2)])
test5 <- suppressMessages(read_AG_IMU(
file_IMU
)[ ,-c(1:2)])
test6 <- suppressMessages(read_AG_IMU(
file_IMU,
output_window_secs = 5
)[ ,-c(1:2)])
# Test --------------------------------------------------------------------
testthat::test_that("file reading methods give equivalent results", {
## Test 1: gt3x_raw equivalent to read_raw? ####
# (Tolerance in milli-G's)
AG <- reference_3x$RAW[seq(nrow(test1)), ]
class(AG) <- class(test1)
accel_vars <- names(AG)[grepl("Accelerometer", names(AG))]
testthat::expect_true(
all(PAutilities::test_errors(
AG, test1, accel_vars, 0.0001
))
)
testthat::expect_equal(AG, test1)
## Test 2: gt3x_raw equivalent to read_raw, 1-s epochs? ####
# (Tolerance in milli-G's)
AG <- reference_3x$RAW
AG <- suppressMessages(
collapse_gt3x(AG)[seq(nrow(test2)), -c(1:2)]
)
testthat::expect_true(
all(
PAutilities::test_errors(
AG,
test2,
setdiff(names(AG), "Timestamp"),
0.0001
)
)
)
testthat::expect_equal(AG, test2)
## Test 3: gt3x_raw equivalent to read_raw, 5-s epochs? ####
# (Tolerance in milli-G's)
AG <- reference_3x$RAW
AG <- suppressMessages(collapse_gt3x(
AG, output_window_secs = 5
)[seq(nrow(test3)), -c(1:2)])
testthat::expect_true(
all(
PAutilities::test_errors(
AG,
test3,
setdiff(names(AG), "Timestamp"),
0.0001
)
)
)
testthat::expect_equal(AG, test3)
## Test 4: gt3x_imu equivalent to read_imu? ####
AG <- reference_3x$IMU[seq(nrow(test4)), ]
test4 <- test4[ ,names(AG)]
class(AG) <- class(test4)
testthat::expect_true(
all(
PAutilities::test_errors(
AG, test4,
setdiff(names(AG), "Timestamp"),
0.000001
)
)
)
testthat::expect_equal(AG, test4, tolerance = 0.0001)
## Test 5: gt3x_imu equivalent to read_imu, 1-s epochs? ####
AG <- reference_3x$IMU
AG <- collapse_gt3x(AG)[seq(nrow(test5)),-c(1:2)]
testthat::expect_equal(AG, test5, tolerance = 0.00005)
## Test 6: gt3x_imu equivalent to read_imu, 5-s epochs? ####
# (Same tolerance notes as previous section)
AG <- reference_3x$IMU
AG <- suppressMessages(collapse_gt3x(
AG, output_window_secs = 5
)[seq(nrow(test6)),-c(1:2)])
testthat::expect_equal(AG, test6, tolerance = 0.00005)
})
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.