tests/testthat/test_JoinIntervals.R
In Tobias-Ruff/relectro_bak: Analysis of electrophysiological data
library(relectro)
library(testthat)
context("JoinIntervals")
test_that("timeWithinIntervals",{
expect_equal(sum(timeWithinIntervals(x=c(0,1,2,3),s=1,e=2)),0)
expect_equal(timeWithinIntervals(x=c(0,1,2,3),s=1,e=3),c(F,F,T,F))
expect_equal(timeWithinIntervals(x=c(0,1,2,3,4,5),s=c(1,4),e=c(2,6)),c(F,F,F,F,F,T))
})
Tobias-Ruff/relectro_bak documentation built on May 3, 2019, 6:43 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.
library(relectro)
library(testthat)
context("JoinIntervals")
test_that("timeWithinIntervals",{
expect_equal(sum(timeWithinIntervals(x=c(0,1,2,3),s=1,e=2)),0)
expect_equal(timeWithinIntervals(x=c(0,1,2,3),s=1,e=3),c(F,F,T,F))
expect_equal(timeWithinIntervals(x=c(0,1,2,3,4,5),s=c(1,4),e=c(2,6)),c(F,F,F,F,F,T))
})
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.