R/clayton.copula.R

In icensBKL: Accompanion to the Book on Interval Censoring by Bogaerts, Komarek, and Lesaffre

Defines functions clayton.copula

Documented in clayton.copula

#                
# Clayton copula 
#                

clayton.copula<-function(u, v, beta, cov){
  theta <- exp(cov %*% as.matrix(beta))
  (u^(-theta) + v^(-theta) - 1)^(-1/theta)
}

Try the icensBKL package in your browser