Plot Aoristic Analysis

## Arguments

- x
An AoristicSum or a RateOfChange object.

- facet
A

`logical`

scalar: should a matrix of panels defined by groups be drawn?- colors
A

`character`

string giving the name of the palette to be used (see`khroma::color()`

).- ...
Currently not used.

- level
A length-one

`numeric`

vector giving the confidence level.

## Value

`plot()`

is called it for its side-effects: it results in a graphic being
displayed (invisibly returns `x`

).

## 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)
## Calculate aoristic sum (weights)
aorist_weighted <- aoristic(loire_range, step = 50, weight = TRUE)
plot(aorist_weighted)
## Calculate aoristic sum (weights) by group
aorist_groups <- aoristic(loire_range, step = 50, weight = TRUE,
groups = loire$area)
plot(aorist_groups, facet = TRUE)
plot(aorist_groups, facet = FALSE)
## 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)
```