inst/tinytest/test_boundaries.R

# Transition bewteen phases ====================================================
pha <- as_phases(mcmc_phases, start = c(1, 3), calendar = CE(), iteration = 1)
pha <- pha[1:10000, , ]

boundaries_phases <- boundaries(pha)
expect_equal_to_reference(boundaries_phases, file = "_snaps/phases_boundaries.rds")

Try the ArchaeoPhases package in your browser

Any scripts or data that you put into this service are public.

ArchaeoPhases documentation built on June 22, 2024, 9:24 a.m.