https://github.com/cran/NCSCopula
Raw File
Tip revision: 3909ac56a196b79173af915f5dec1582c730b991 authored by Bouchra R. Nasri on 28 November 2019, 15:50:02 UTC
version 1.0.1
Tip revision: 3909ac5
KendallTau.R
#' @title Kendall's tau of a copula
#'
#' @description This function computes the Kendall's tau of a copula family for a given a unconstrainted parameter alpha.
#'
#' @param family "Gaussian" , "t" , "Clayton" , "Frank" , "Gumbel"
#' @param alpha  unconstrainted parameters of the copula family
#'
#' @return \item{tau}{estimated Kendall's tau}
#' @return \item{theta}{estimated copula parameter (constrained)}
#'
#' @author Bouchra R. Nasri, August 14, 2019
#'
#' @examples KendallTau('Clayton',0)
#'
#' @export
#'
KendallTau<- function(family,alpha){

  theta = ParamCop(family,alpha);

  switch(family,
         "Gaussian" = {

         tau = copula::tau(normalCopula(theta[1]));
         },

         "t" = {
           tau = copula::tau(tCopula(theta[1]));
         },

         "Clayton" = {

           tau = copula::tau(claytonCopula(theta[1]));
         },

         "Frank" = {


           tau = copula::tau(frankCopula(theta[1]));
         },

         "Gumbel" = {

           tau = copula::tau(gumbelCopula(theta[1]));
         }
  )

  out=list(tau=tau,theta=theta)
}




back to top