model_event: Extract Event Date Model Results
In kairos: Analysis of Chronological Patterns from Archaeological Count Data

model_event

R Documentation

Extract Event Date Model Results

Description

summary() summarizes linear model fit.
coef() extracts model coefficients (see stats::coef()).
fitted() extracts model fitted values (see stats::fitted()).
residuals() extracts model residuals (see stats::residuals()).
sigma() extracts the residual standard deviation (see stats::sigma()).
terms() extracts model terms (see stats::terms()).

Usage

## S4 method for signature 'EventDate'
summary(object, ...)

## S4 method for signature 'EventDate'
coef(object, calendar = NULL, ...)

## S4 method for signature 'EventDate'
fitted(object, calendar = NULL, ...)

## S4 method for signature 'EventDate'
residuals(object, calendar = NULL, ...)

## S4 method for signature 'EventDate'
sigma(object, calendar = NULL, ...)

## S4 method for signature 'EventDate'
terms(x, ...)

Arguments

`...`	Currently not used.
`calendar`	An `aion::TimeScale` object specifying the target calendar (see `aion::calendar()`). If `NULL` (the default), rata die are returned.
`x`, `object`	An `EventDate` object.

Author(s)

N. Frerebeau

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 April 3, 2025, 7:08 p.m.