plot_mcd {kairos} | R Documentation |
MCD Plot
Description
MCD Plot
Usage
## S4 method for signature 'MeanDate,missing'
plot(
x,
calendar = getOption("kairos.calendar"),
decreasing = TRUE,
main = NULL,
sub = NULL,
ann = graphics::par("ann"),
axes = TRUE,
frame.plot = axes,
panel.first = NULL,
panel.last = NULL,
...
)
## S4 method for signature 'SimulationMeanDate,missing'
plot(
x,
calendar = getOption("kairos.calendar"),
interval = "student",
level = 0.8,
decreasing = TRUE,
main = NULL,
sub = NULL,
ann = graphics::par("ann"),
axes = TRUE,
frame.plot = axes,
panel.first = NULL,
panel.last = NULL,
...
)
Arguments
x |
A |
calendar |
An |
decreasing |
A |
main |
A |
sub |
A |
ann |
A |
axes |
A |
frame.plot |
A |
panel.first |
An an |
panel.last |
An |
... |
Further graphical parameters. |
interval |
A |
level |
A length-one |
Value
plot()
is called it for its side-effects: it results in a graphic being
displayed (invisibly returns x
).
Author(s)
N. Frerebeau
See Also
Other plotting methods:
plot_aoristic
,
plot_event
,
plot_fit
,
plot_time()
Examples
## Data from Peeples and Schachner 2012
data("zuni", package = "folio")
## Set the start and end dates for each ceramic type
dates <- list(
LINO = c(600, 875), KIAT = c(850, 950), RED = c(900, 1050),
GALL = c(1025, 1125), ESC = c(1050, 1150), PUBW = c(1050, 1150),
RES = c(1000, 1200), TULA = c(1175, 1300), PINE = c(1275, 1350),
PUBR = c(1000, 1200), WING = c(1100, 1200), WIPO = c(1125, 1225),
SJ = c(1200, 1300), LSJ = c(1250, 1300), SPR = c(1250, 1300),
PINER = c(1275, 1325), HESH = c(1275, 1450), KWAK = c(1275, 1450)
)
## Calculate date midpoints
mid <- vapply(X = dates, FUN = mean, FUN.VALUE = numeric(1))
## Calculate MCD
(mc_dates <- mcd(zuni[100:125, ], dates = mid))
## Get MCD in years CE
time(mc_dates, calendar = CE())
## Plot
plot(mc_dates)
## Bootstrap resampling
boot <- bootstrap(mc_dates, n = 30)
head(boot)
## Jackknife resampling
jack <- jackknife(mc_dates)
head(jack)
## Simulation
sim <- simulate(mc_dates, nsim = 30)
plot(sim, interval = "range", pch = 16)