In tesselle/kairos: Analysis of Chronological Patterns from Archaeological Count Data

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = NULL
)
Sys.setenv(LANGUAGE = "en") # Force locale

kairos

{.pkgdown-devel} {.pkgdown-devel} {.pkgdown-devel}

{.pkgdown-devel} {.pkgdown-release} {.pkgdown-release} {.pkgdown-release}

Overview

A toolkit for relative and absolute dating and analysis of chronological patterns. This package includes functions for chronological modeling and dating of archaeological assemblages from count data. It provides methods for matrix seriation. It also allows to compute time point estimates and density estimates of the occupation and duration of an archaeological site. kairos provides methods for:

• Matrix seriation: seriate_rank() and seriate_average().
• Testing matrix seriation results [@porcic2013; @peeples2012]: assess() and refine().
• Mean ceramic date estimation [@south1977]: mcd().
• Event and accumulation date estimation [@bellanger2012]: event().
• Aoristic analysis [@ratcliffe2000]: aoristic().
• Chronological apportioning [@roberts2012]: apportion().

tabula is a companion package to kairos that provides functions for visualization and analysis of archaeological count data.

---

cite <- utils::citation("kairos")
print(cite, bibtex = FALSE)

Installation

You can install the released version of kairos from CRAN with:

install.packages("kairos")

And the development version from Codeberg with:

# install.packages("remotes")
remotes::install_git("https://codeberg.org/tesselle/kairos")

Usage

## Load packages
library(kairos)

kairos uses aion for internal date representation. Look at vignette("aion", package = "aion") before you start.

It assumes that you keep your data tidy: each variable (type/taxa) must be saved in its own column and each observation (sample/case) must be saved in its own row.

## Data from Husi 2022
data("loire", package = "folio")
keep <- c("Anjou", "Blésois", "Orléanais", "Haut-Poitou", "Touraine")
loire <- subset(loire, area %in% keep)

## Get time range
loire_range <- loire[, c("lower", "upper")]

## Calculate aoristic sum (weights) by group
ao <- aoristic(loire_range, step = 50, weight = TRUE, groups = loire$area)

## Plot
plot(ao, col = "grey")

## Rate of change by group
set.seed(12345) # Set seed for reproductibility
ro <- roc(ao, n = 30)
plot(ro)

Translation

This package provides translations of user-facing communications, like messages, warnings and errors, and graphical elements (axis labels). The preferred language is by default taken from the locale. This can be overridden by setting of the environment variable LANGUAGE (you only need to do this once per session):

Sys.setenv(LANGUAGE = "<language code>")

Languages currently available are English (en) and French (fr).

Contributing

Please note that the kairos project is released with a Contributor Code of Conduct. By contributing to this project, you agree to abide by its terms.

References

## Update codemeta.json
codemetar::write_codemeta(verbose = FALSE)

## Update CITATION.cff
cff_keys <- list(
  identifiers = list(
    list(description = "The concept DOI.",
         type = "doi",
         value = "10.5281/zenodo.5653896"),
    list(description = "The versioned DOI for version 1.0.0.",
         type = "doi",
         value = "10.5281/zenodo.5653897"),
    list(description = "The versioned DOI for version 1.0.1.",
         type = "doi",
         value = "10.5281/zenodo.6349207"),
    list(description = "The versioned DOI for version 1.1.0.",
         type = "doi",
         value = "10.5281/zenodo.6659732"),
    list(description = "The versioned DOI for version 1.2.0.",
         type = "doi",
         value = "10.5281/zenodo.7307327"),
    list(description = "The versioned DOI for version 2.0.0.",
         type = "doi",
         value = "10.5281/zenodo.8301347"),
    list(description = "The versioned DOI for version 2.0.1.",
         type = "doi",
         value = "10.5281/zenodo.8318621"),
    list(description = "The versioned DOI for version 2.0.2.",
         type = "doi",
         value = "10.5281/zenodo.10209640"),
    list(description = "The versioned DOI for version 2.1.0.",
         type = "doi",
         value = "10.5281/zenodo.10711260"),
    list(description = "The versioned DOI for version 2.1.1.",
         type = "doi",
         value = "10.5281/zenodo.12967467"),
    list(description = "The versioned DOI for version 2.2.0.",
         type = "doi",
         value = "10.5281/zenodo.14357977"),
    list(description = "The versioned DOI for version 2.2.1.",
         type = "doi",
         value = "10.5281/zenodo.15132107"),
    list(description = "The versioned DOI for version 2.3.0.",
         type = "doi",
         value = "10.5281/zenodo.15463239"),
    list(description = "The CRAN DOI",
         type = "doi",
         value = "10.32614/cran.package.kairos")
  )
)
cff <- cffr::cff_create("DESCRIPTION", keys = cff_keys)
if (cffr::cff_validate(cff)) cffr::cff_write(cff, outfile = "CITATION.cff")

tesselle/kairos documentation built on June 1, 2025, 9:03 p.m.