R/representations-shift.R

In vincenzocoia/distplyr: Manipulation of Univariate Distributions

#' @export
eval_cdf.shift <- function(distribution, at) {
	with(distribution$components, {
		distionary::eval_cdf(distribution, at - shift)
	})
}

#' @export
eval_quantile.shift <- function(distribution, at) {
	with(distribution$components, {
		distionary::eval_quantile(distribution, at - shift)
	})
}

#' @export
eval_pmf.shift <- function(distribution, at, strict) {
	with(distribution$components, {
		distionary::eval_pmf(distribution, at - shift, strict = strict)
	})
}

#' @export
eval_density.shift <- function(distribution, at, strict) {
	with(distribution$components, {
		distionary::eval_density(distribution, at - shift, strict = strict)
	})
}

#' @export
eval_survival.shift <- function(distribution, at) {
	with(distribution$components, {
		distionary::eval_survival(distribution, at - shift)
	})
}

#' @export
realise.shift <- function(distribution, ...) {
	with(distribution$components, {
		distionary::realise(distribution, ...) + shift
	})
}

#' @export
eval_quantile.shift <- function(distribution, at, ...) {
	with(distribution$components, {
		distionary::eval_quantile(distribution, at, ...) + shift
	})
}