tests/testthat/test_posteriors_standard_uniform.R

In goldingn/greta: Simple and Scalable Statistical Modelling in R

Sys.setenv("RELEASE_CANDIDATE" = "true")

## TF1/2 this sampler fails
test_that("samplers are unbiased for standard uniform", {
  skip_if_not(check_tf_version())

  skip_if_not_release()

  x <- uniform(0, 1)
  iid <- runif

  runif_checked <- check_samples(x, iid)

  qqplot_checked_samples(runif_checked)

  # do a formal hypothesis test
  stat <- ks_test_mcmc_vs_iid(runif_checked)

  expect_gte(stat$p.value, 0.01)
})