context("centering")
options(future.rng.onMisue = "ignore")
test_that("can center a fixation_group", {
x <- runif(10)
y <- runif(10)
onset <- seq(1,length.out=length(x), by=50)
duration <- rep(1,length(x))
fixgroup <- fixation_group(x,y,onset,duration)
cfix <- center(fixgroup)
expect_true(mean(cfix$x) == 0)
expect_true(mean(cfix$y) == 0)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.