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
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)
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