tests/testthat/test-ffdEvidenceFEST.R

In BayesDLMfMRI: Statistical Analysis for Task-Based Fmri Data

test_that("ffdEvidenceFETS", {
  
  
  skip_on_cran()
  
  # browser()
  
  fMRI.data  <- readRDS(system.file("test_data", 'data_test.Rds', package= "BayesDLMfMRI"))
  covariates <- readRDS(system.file("test_data", 'covariates.Rds', package= "BayesDLMfMRI"))
  result     <- readRDS(system.file("test_data", 'res_FETS.Rds', package= "BayesDLMfMRI")) 
                
  
  res <- ffdEvidenceFETS(ffdc = fMRI.data, covariates = covariates,
                         m0 = 0, Cova = 100, delta = 0.95, S0 = 1, n0 = 1, Nsimu1 = 100, Cutpos1 = 30,
                         r1 = 1, Test = "LTT", Ncores = 8, seed=444) 
  
  expect_equal(res[[1]] |> as.numeric(), result[[1]] |> as.numeric())
  expect_equal(res[[2]] |> as.numeric(), result[[2]] |> as.numeric())
  
})