predict_event: Predict Event and Accumulation Dates

In kairos: Analysis of Chronological Patterns from Archaeological Count Data

Predict Event and Accumulation Dates

Description

Estimates the event and accumulation dates of an assemblage.

Usage

predict_event(object, data, ...)

predict_accumulation(object, data, ...)

## S4 method for signature 'EventDate,missing'
predict_event(object, margin = 1, level = 0.95, calendar = NULL)

## S4 method for signature 'EventDate,matrix'
predict_event(object, data, margin = 1, level = 0.95, calendar = NULL)

## S4 method for signature 'EventDate,missing'
predict_accumulation(object, calendar = NULL)

## S4 method for signature 'EventDate,matrix'
predict_accumulation(object, data, level = 0.95, calendar = NULL)

Arguments

object	A m \times p numeric matrix or data.frame of count data (absolute frequencies giving the number of individuals for each category, i.e. a contingency table). A data.frame will be coerced to a numeric matrix via data.matrix().
data	A numeric matrix or a data.frame of count data (absolute frequencies) for which to predict event and accumulation dates.
...	Further arguments to be passed to internal methods.
margin	A numeric vector giving the subscripts which the prediction will be applied over: 1 indicates rows, 2 indicates columns.
level	A length-one numeric vector giving the confidence level.
calendar	A TimeScale object specifying the target calendar (see calendar()). If NULL (the default), rata die are returned.

Value

• predict_event() returns a data.frame.

• predict_accumulation() returns a data.frame.

Author(s)

N. Frerebeau

References

Bellanger, L. & Husi, P. (2013). Mesurer et modéliser le temps inscrit dans la matière à partir d'une source matérielle : la céramique médiévale. In Mesure et Histoire Médiévale. Histoire ancienne et médiévale. Paris: Publication de la Sorbonne, p. 119-134.

Bellanger, L. & Husi, P. (2012). Statistical Tool for Dating and Interpreting Archaeological Contexts Using Pottery. Journal of Archaeological Science, 39(4), 777-790. \Sexpr[results=rd]{tools:::Rd_expr_doi("10.1016/j.jas.2011.06.031")}.

Bellanger, L., Tomassone, R. & Husi, P. (2008). A Statistical Approach for Dating Archaeological Contexts. Journal of Data Science, 6, 135-154.

Bellanger, L., Husi, P. & Tomassone, R. (2006). Une approche statistique pour la datation de contextes archéologiques. Revue de Statistique Appliquée, 54(2), 65-81.

Bellanger, L., Husi, P. & Tomassone, R. (2006). Statistical Aspects of Pottery Quantification for the Dating of Some Archaeological Contexts. Archaeometry, 48(1), 169-183. \Sexpr[results=rd]{tools:::Rd_expr_doi("10.1111/j.1475-4754.2006.00249.x")}.

See Also

event()

Other dating methods: event(), mcd()

Examples

## Data from Peeples and Schachner 2012
data("zuni", package = "folio")

## Assume that some assemblages are reliably dated (this is NOT a real example)
zuni_dates <- c(
  LZ0569 = 1097, LZ0279 = 1119, CS16 = 1328, LZ0066 = 1111,
  LZ0852 = 1216, LZ1209 = 1251, CS144 = 1262, LZ0563 = 1206,
  LZ0329 = 1076, LZ0005Q = 859, LZ0322 = 1109, LZ0067 = 863,
  LZ0578 = 1180, LZ0227 = 1104, LZ0610 = 1074
)

## Model the event and accumulation date for each assemblage
model <- event(zuni, zuni_dates, rank = 10)
plot(model, select = 1:10, event = TRUE, flip = TRUE)

kairos documentation built on Nov. 27, 2023, 5:08 p.m.