tests/testthat/test-methods-stanfit.R

In hlplab/MVBeliefUpdatr: Fitting, Summarizing, and Visualizing of Gaussian Ideal Observers and Adaptors

context("get information from stanfit")

source("../functions-to-make-or-load-models.R")

# 1D stanfit with all conditions having exposure
fit <- get_example_stanfit(1, stanmodel = "NIW_ideal_adaptor", file_refit = "never")

test_that("Test for single cue", {
  expect_no_error(suppressWarnings(summary(fit)))
  expect_no_error(suppressWarnings(summary(fit, only_prior = TRUE)))
  expect_no_error(suppressWarnings(summary(fit, include_transformed_pars = TRUE)))
  expect_true(is.data.frame(suppressWarnings(summary(fit))))
})

# 3D stanfit with a condition without exposure
fit <- get_example_stanfit(3, stanmodel = "NIW_ideal_adaptor", transform_type = "standardize", file_refit = "never")

test_that("Test for multiple cues", {
  expect_no_error(suppressWarnings(summary(fit)))
  expect_no_error(suppressWarnings(summary(fit, only_prior = TRUE)))
  expect_no_error(suppressWarnings(summary(fit, include_transformed_pars = TRUE)))
  expect_true(is.data.frame(suppressWarnings(summary(fit))))
})