kairos

kairos est un package R destiné à la modélisation chronologique et à la datation d’assemblages archéologiques à partir de données de comptage (par exemple, la sériation de matrices). Il permet également de calculer des estimations ponctuelles de l’occupation et de la durée d’un site archéologique.

• Sériation de matrices : seriate_rank(), seriate_average().
• Évaluation des résultats sériation (Porčić 2013 ; Peeples and Schachner 2012) : assess(), refine().
• Date céramique moyenne (South 1977) : mcd().
• Date d’événement et d’accumulation (Bellanger and Husi 2012) : event().
• Analyse aoristique (Ratcliffe 2000) : aoristic().
• Répartition chronologique (Roberts et al. 2012) : apportion().

tabula est un package complémentaire à kairos qui fournit des fonctions pour la visualisation et l’analyse de données de comptage.

Ce package fait partie du projet tesselle.

Installation

Vous pouvez installer la dernière version depuis le CRAN avec :

install.packages("kairos")

Et la version de développement depuis Codeberg avec :

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

Utilisation

## Installer les packages supplémentaires
## (si nécessaire)
# install.packages("folio")

## Charger le package
library(kairos)

kairos utilise aion pour la représentation interne des dates. Consultez vignette("aion", package = "aion") avant de commencer.

Veillez à bien organiser vos données. Chaque variable (type/taxon) doit correspondre à une colonne et chaque observation (échantillon/cas) doit correspondre à une ligne de votre tableau de données.

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

## Extraire les bornes chronologiques
loire_range <- loire[, c("lower", "upper")]

## Calculer la somme aoristique par groupe
ao <- aoristic(loire_range, step = 50, weight = TRUE, groups = loire$area)

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

## Taux de changement par groupe
set.seed(12345) # Reproductibilité
ro <- roc(ao, n = 30)
plot(ro)