tests/testthat/test-misc.R

test_that("Data normalization completes", {
  nr <- 170
  nc <- 1000
  x <- norm_BOLD(matrix(rnorm(nr*nc), nrow=nr))
  testthat::expect_true(all(dim(x) == c(nr, nc)))
})

Try the templateICAr package in your browser

Any scripts or data that you put into this service are public.

templateICAr documentation built on Feb. 16, 2023, 8:14 p.m.