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()
}
Run the code above in your browser using DataLab