inst/bn/custom.association.R

In wiseR: A Shiny Application for End-to-End Bayesian Decision Network Analysis and Web-Deployment

custom.association<-function(data,type)
{
  associationData = c()
  varNames = names(data)
  for(i in 1:(ncol(data)-1))
  {
    for(j in (i+1):ncol(data))
    {
      tryCatch({
        if(type == "cramer's V")
        {
          assocVal = DescTools::CramerV(table(data[,c(i,j)]))
          associationData = rbind(associationData,c(varNames[i],varNames[j],assocVal))
        }
        else if(type == "Cohen's D")
        {
          assocVal = DescTools::CohenD(table(data[,c(i,j)]))[1]
          associationData = rbind(associationData,c(varNames[i],varNames[j],assocVal))
        }
        else if(type =="Goodman Kruskal lambda")
        {
          assocVal = DescTools::Lambda(table(data[,c(i,j)]))
          associationData = rbind(associationData,c(varNames[i],varNames[j],assocVal))
        }
        else if(type == "Tschuprow's T")
        {
          assocVal = DescTools::TschuprowT(table(data[,c(i,j)]))
          associationData = rbind(associationData,c(varNames[i],varNames[j],assocVal))
        }

      },
      error = function(e)
      {
        assocVal = 0
        associationData = rbind(associationData,c(varNames[i],varNames[j],assocVal))
      })
    }
  }
  return(associationData)

}