are_equal_mcmcs {beautier}

Determine if two MCMCs are equal.

Description

Will stop if the arguments are not MCMCs.

Usage

are_equal_mcmcs(mcmc_1, mcmc_2)

Arguments

mcmc_1

an MCMC, as created by create_mcmc

mcmc_2

an MCMC, as created by create_mcmc

Value

TRUE if the two MCMCs are equal

Author(s)

Richèl J.C. Bilderbeek

See Also

Use create_mcmc to create an MCMC

Examples

if (is_on_ci()) {

  check_empty_beautier_folder()

  mcmc_1 <- create_mcmc(chain_length = 1000)
  mcmc_2 <- create_mcmc(chain_length = 314)
  # TRUE
  are_equal_mcmcs(mcmc_1, mcmc_1)
  # FALSE
  are_equal_mcmcs(mcmc_1, mcmc_2)

  check_empty_beautier_folder()
}