Skip to contents

The average value of the REC domain coherence taken across domains (which, when the domains all have the same number of indicators, I believe will also equal the average within-domain REC vs. the average cross-domain REC); this gives a measure of the coherence of the partition formed by the various domains as a whole

Usage

rec.coherence(data, domainlist = NULL, domainnames = NULL, na.rm = TRUE)

Arguments

data

A data.frame or tibble (required)

domainlist

A list of character vectors or numeric vectors denoting the columns for each domain (required)

domainnames

A character vector supplying updated names to be attached to output

na.rm

logical (defaults to TRUE)

Value

A single numerical value

Details

[Experimental]

Examples

  # Use the SCWB data example
  mylist <- list(
    domain_goodrel = c("cwbcloserel", "cwbrespect", "cwbtrust", "cwbmutuality"),
    domain_prolead = c("cwbbeneficence", "cwbintegrity", "cwbcompetence", "cwbvision"),
    domain_healthyprac = c("cwbrelgrowth", "cwbfairness", "cwbsustenance", "cwbachieve"),
    domain_satcomm = c("cwbsatisf", "cwbvalue", "cwbbelonging", "cwbwelcome"),
    domain_strongmiss = c("cwbpurpose", "cwbcontrib", "cwbinterconn", "cwbsynergy")
  )
  rec.coherence(SCWB, mylist)
#>                        Metric     Average
#> 1   REC Average Within Domain  0.14200450
#> 2 REC Average Between Domains -0.02662584