kairos (version 2.1.1)

predict_event: 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 EventDate,missing
predict_event(object, margin = 1, level = 0.95, calendar = NULL)
# S4 method for EventDate,matrix
predict_event(object, data, margin = 1, level = 0.95, calendar = NULL)
# S4 method for EventDate,missing
predict_accumulation(object, calendar = NULL)
# S4 method for EventDate,matrix
predict_accumulation(object, data, level = 0.95, calendar = NULL)

Value

• predict_event() returns a data.frame.

• predict_accumulation() returns a data.frame.

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

An aion::TimeScale object specifying the target calendar (see calendar()). If NULL (the default), rata die are returned.

Author

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. 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. 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)