Replace a distribution's tail.
`graft_left()`

takes a base distribution and grafts a distribution
to the left of some breakpoint; `graft_right()`

grafts a distribution
to the right. The distribution being grafted is sliced at a breakpoint
and fit to the base distribution also at that breakpoint.

```
graft_right(distribution, graft, breakpoint, include = FALSE)
graft_left(distribution, graft, breakpoint, include = FALSE)
is_graft(object)
```

## Arguments

- distribution
Base distribution

- graft
The distribution being grafted.

- breakpoint
The location of the graft

- include
Logical; include the breakpoint in the base distribution?

- object
Object to be tested

## Value

Graft distribution object, which is a special type of mixture
distribution.

## Examples

```
set.seed(1)
x <- stats::rcauchy(100)
base <- distionary::dst_empirical(x)
q <- distionary::eval_quantile(base, at = 0.9)
right <- distionary::dst_gpd(q, 5, 1)
g <- graft_right(base, right, breakpoint = q)
#plot(g, "cdf", n = 1001, to = 34)
#plot(base, "cdf", n = 1001, lty = 2, add = TRUE)
```