inst/tinytest/test_hiatus.R
In ArchaeoStat/ArchaeoPhases: Post-Processing of Markov Chain Monte Carlo Simulations for Chronological Modelling
# Hiatus bewteen events ========================================================
eve <- as_events(mcmc_events, calendar = CE(), iteration = 1)
eve <- eve[1:10000, ]
hiatus_events <- hiatus(eve)
expect_equal_to_reference(hiatus_events, file = "_snaps/events_hiatus.rds")
# Hiatus bewteen phases ========================================================
pha <- as_phases(mcmc_phases, start = c(1, 3), calendar = CE(), iteration = 1)
pha <- pha[1:10000, , ]
hiatus_phases <- hiatus(pha)
expect_equal_to_reference(hiatus_phases, file = "_snaps/phases_hiatus.rds")
ArchaeoStat/ArchaeoPhases documentation built on Jan. 19, 2025, 2:33 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
# Hiatus bewteen events ========================================================
eve <- as_events(mcmc_events, calendar = CE(), iteration = 1)
eve <- eve[1:10000, ]
hiatus_events <- hiatus(eve)
expect_equal_to_reference(hiatus_events, file = "_snaps/events_hiatus.rds")
# Hiatus bewteen phases ========================================================
pha <- as_phases(mcmc_phases, start = c(1, 3), calendar = CE(), iteration = 1)
pha <- pha[1:10000, , ]
hiatus_phases <- hiatus(pha)
expect_equal_to_reference(hiatus_phases, file = "_snaps/phases_hiatus.rds")
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.