R/make_copula.R

In hannesdatta/marketingtools: What the Package Does (One Line, Title Case)

# Copula transformation function (see Park and Gupta 2012), based on a variable's ECDF
#' @export
make_copula <- function(x) {
		if (length(unique(x))==1) return(as.numeric(rep(NA, length(x))))
		return(ifelse(ecdf(x)(x)==1, qnorm(1-.0000001), qnorm(ecdf(x)(x))))
		}