tests/testthat/test-FTR_CP.R

test_that("Works with no eta", {
  set.seed(123)
  input <- TR_simulated_data(subjects = 20, tensor_dims = c(20, 20), CNR = 1, num_active = 1, other_covar = NULL)
  model_output <- FTR_CP(input = input, rank = 1)
  expect_true(is.null(model_output$gam))
})
danieladamspencer/bayestensorreg documentation built on July 23, 2024, 10:14 a.m.