predict_event {kairos} | R Documentation |
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 |
data |
A |
... |
Further arguments to be passed to internal methods. |
margin |
A |
level |
A length-one |
calendar |
An |
Value
-
predict_event()
returns adata.frame
. -
predict_accumulation()
returns adata.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. 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. doi:10.1111/j.1475-4754.2006.00249.x.
See Also
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)