Replace the tail of a distribution. graft_right() keeps the left cdf unchanged to the left of sep_y, and makes a continuous connection with the right cdf (rescaled as appropriate). graft_left() keeps the right cdf unchanged to the right of sep_y, and makes a continuous connection with the left cdf (rescaled as appropriate),

graft_right(dst_left, dst_right, sep_y)

is_graft(object)

is.graft(object)

## Arguments

dst_left, dst_right Distributions to connect Value on the domain of the cdf to connect at. Object to be tested

## Value

A grafted distribution object.

## Examples

require(datasets)
base <- stepdst(mpg, data = mtcars)
right <- dst_gpd(25, 5, 1)
g <- graft_right(base, right, sep_y = 25)
plot(g, "cdf", n = 1001, to = 34)plot(base, "cdf", n = 1001, lty = 2, add = TRUE)