inst/tinytest/test_older.R
In ArchaeoStat/ArchaeoPhases: Post-Processing of Markov Chain Monte Carlo Simulations for Chronological Modelling
# Test for anteriority =========================================================
eve <- as_events(mcmc_events, calendar = CE(), iteration = 1)
eve <- eve[1:10000, ]
old_21 <- older(eve[, 2, drop = TRUE], eve[, 1, drop = TRUE])
expect_identical(old_21, 1)
old <- older(eve[, 1:2])
expect_equivalent(old, matrix(c(0, 1, 0, 0), nrow = 2))
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.
# Test for anteriority =========================================================
eve <- as_events(mcmc_events, calendar = CE(), iteration = 1)
eve <- eve[1:10000, ]
old_21 <- older(eve[, 2, drop = TRUE], eve[, 1, drop = TRUE])
expect_identical(old_21, 1)
old <- older(eve[, 1:2])
expect_equivalent(old, matrix(c(0, 1, 0, 0), nrow = 2))
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.