tests/testthat/test.load.events.files.R
In PALkitchen/activPAL: Advanced Processing and Chart Generation from activPAL Events Files
context("Load File")
library(activPAL)
test_that("file_loading", {
file_data <- activPAL:::pre.process.events.file(paste(system.file("extdata", "", package = "activPAL"),"/Test_Events.csv",sep=""))
expect_equal(nrow(file_data), 179)
expect_equal(length(which(is.na(file_data$time))), 0)
expect_equal(sum(file_data$steps), 2006)
expect_equal(sum(file_data$interval), 86400)
})
PALkitchen/activPAL documentation built on July 18, 2023, 8:37 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("Load File")
library(activPAL)
test_that("file_loading", {
file_data <- activPAL:::pre.process.events.file(paste(system.file("extdata", "", package = "activPAL"),"/Test_Events.csv",sep=""))
expect_equal(nrow(file_data), 179)
expect_equal(length(which(is.na(file_data$time))), 0)
expect_equal(sum(file_data$steps), 2006)
expect_equal(sum(file_data$interval), 86400)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.