plot_aoristic {kairos} | R Documentation |
Plot Aoristic Analysis
Description
Plot Aoristic Analysis
Usage
## S4 method for signature 'AoristicSum,missing'
plot(
x,
calendar = getOption("kairos.calendar"),
type = c("bar"),
flip = FALSE,
ncol = NULL,
main = NULL,
sub = NULL,
ann = graphics::par("ann"),
axes = TRUE,
frame.plot = axes,
panel.first = NULL,
panel.last = NULL,
...
)
## S4 method for signature 'AoristicSum'
image(x, calendar = getOption("kairos.calendar"), ...)
## S4 method for signature 'RateOfChange,missing'
plot(
x,
calendar = getOption("kairos.calendar"),
level = 0.95,
flip = FALSE,
ncol = NULL,
main = NULL,
sub = NULL,
ann = graphics::par("ann"),
axes = TRUE,
frame.plot = axes,
panel.first = NULL,
panel.last = NULL,
...
)
Arguments
x |
An |
calendar |
An |
type |
A |
flip |
A |
ncol |
An |
main |
A |
sub |
A |
ann |
A |
axes |
A |
frame.plot |
A |
panel.first |
An |
panel.last |
An |
... |
Further parameters to be passed to |
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_event
,
plot_fit
,
plot_mcd
,
plot_time()
Examples
## Data from Husi 2022
data("loire", package = "folio")
## Get time range
loire_range <- loire[, c("lower", "upper")]
## Calculate aoristic sum (normal)
aorist_raw <- aoristic(loire_range, step = 50, weight = FALSE)
plot(aorist_raw, col = "grey")
## Calculate aoristic sum (weights)
aorist_weighted <- aoristic(loire_range, step = 50, weight = TRUE)
plot(aorist_weighted, col = "grey")
## Calculate aoristic sum (weights) by group
aorist_groups <- aoristic(loire_range, step = 50, weight = TRUE,
groups = loire$area)
plot(aorist_groups, flip = TRUE, col = "grey")
image(aorist_groups)
## Rate of change
roc_weighted <- roc(aorist_weighted, n = 30)
plot(roc_weighted)
## Rate of change by group
roc_groups <- roc(aorist_groups, n = 30)
plot(roc_groups, flip = TRUE)