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

sep_y

Value on the domain of the cdf to connect at.

object

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)